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Gempure mir, 


IB 5 E: öS 55 sfr 6,50 DM 6,56 











a Auch in dieser Ausgabe wieder 
interessante Beiträge zu den 
Themen: 
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An dieser Stelle möchten wir die 
Gelegenheit wahrnehmen und 
einen Situationsbericht über das 
Computersystem C-16/116 ver- 
öffentlichen. 


Nachdem in den letzten Wochen ein regel- 
rechter „RUN“ auf den C-16/116 einsetzte, 
istes ander Zeit, auch einige Hintergrund- 
informationen über dieses Thema an un- 
Sere Leser weiterzugeben. 


Commodore brachte dieses System be- 
reits vor zwei Jahren auf den Markt, das 
Verkaufsgeschäft verlief jedoch zunächst 
sehr. schleppend. Man hatte eigentlich 
wesentlich mehr erwartet, wurde doch ein 
handlicher und äußerst kompakter Home- 
computer entwickelt, dessen grafische 
Möglichkeiten über denen des großen 
Bruders „C-64“ liegen. Auch im Soundbe- 
reich stehen viele Möglichkeiten offen, und 
somit waren eigentlich die besten Voraus- 
setzungen geschaffen, einen für den User 
sehr brauchbaren und anwendungs- 
freundlichen Homecomputer anzubieten. 
Aber leider verlief das Ganze anders, als 
man es in den Verkaufsbüros und Ent- 
wicklungsetagen geplant hatte. 





TIER DERBEINZIEHTETN 
Zunächst fehlte vor allem der Käuferzu- 
spruch zu diesem System, und der Absatz 
| verlief dementsprechend stockend. Das 
hatte natürlich auch zur Folge, daß auch 
das entsprechende Hard- und Softwa- 
reangebotfehlte, d.h. bis auf wenige Aus- 
nahmen, denn einige Programme, in Eng- 
land entwickelt und produziert, gab es 
auch auf dem deutschen Markt. Der An- 
wender hatte jedoch davon so gut wie kei- 
ne Kenntnis. Man hatte Ihn von allen Sei- 
ten „im Regen stehen gelassen“. 





Weder Softwarehäuser noch Zeitschrif- 
tenverlage schenkten diesem System 
große Beachtung. 
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tuation schlagartig ändern. In einer gro- 
Ben Verkaufsaktign in den Allkauf- und Al- 
dimärkten wurde der Rechner zusammen 
mit der CGommodore-Datasette, einer Ba- 
sic-Lernkassette und einem Buch zu ei- 
nem wirklich supergünstigen Preis (149,- 
DM unverb. Preisempf.) angeboten. Durch 
diese Aktion war eine Preisschwelle unter- 
schritten worden, die auch den kritisch- 
sten Verbraucher davon überzeugte, daß 
er bei einer solchen Investition eigentlich 
gar nichts falsch machen könne, denn 
selbst wenn er nach einiger Zeit feststellt, 
daß Ihn das Themaüberfordert, so hatihm 
diese Erfahrung relativ wenig gekostet. Si- 
cherlich dachte eine Vielzahl der Käufer 
ähnlich und unternahm deshalb den 
Schritt, sich einen Computer zuzulegen 
und sich etwas intensiver mit diesem The- 
ma zu beschäftigen. 

Durch den sehr günstigen Preis ist es ge- 
lungen, vollkommen neue Käuferschich- 
ten zu erschließen, und deshalb trat das 
ein, was wohl kaum jemand erwartet hat- 
te: Nach Auskunft der Presseabteilung 
von Commodore konnten über 200.000 
Computer dieses Systems verkauft wer- 
den (Stand: 15. 5. 86). Das ist das bisher 
beste Ergebnis, das ein Homecomputer 
innerhalb so kurzer Zeit erzielt hat. Diese 
Verkaufszahlen !ießen natürlich die ent- 
scheidungsbefugten Herren von Commo- 
dore nicht ruhen, und man entwickelte 
schon neue Pläne. So wird als Erweite- 
rung ein neues System in den Verkauf mit 
aufgenommen. Hierbei handeltes sich um 
den Commodore Plus 4, der zusammen 
mit einer speziellen Diskettenstation, 
1551, ebenfalls zu einem supergünstigen 
Preis von verschiedenen größeren Ver- 
sandhäusern und Verkaufsketten angebo- 
ten wid. Der Anwender erhält damit die 
Möglichkeit, von der Kassette auf die Dis- 
kettenstation umzusteigen und somiteine 
schnellere Verarbeitung der Programme 
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zu erzielen. Ob ein Einzelverkauf der Dis- 
kettenstation geplant ist, konnte bis Re- 
daktionsschluß noch nicht in Erfahrung 
gebracht werden. Eines dürfte aber mitSi- 
cherheit feststehen, die Verkaufszahlen 
für dieses Topangebot werden wohl eben- 
falls eine sechsstellige Zahlengröße errei- 
chen. Aufgrund des C-16/116-Booms tat 
sich natürlich auch einiges im Zubehörbe- 
reich. So wird mittlerweile von fast allen 
Softwarehäusern genügend Software für 
dieses System angeboten, und auch im 
Hardwarebereich sind viele nützliche Zu- 
behörteile auf den Markt gekommen. Ein 
gutes Beispiel für diesen Trend liefert das 
Kombi-Angebot der Firma Kingsoft, die ei- 
nen Joystick, ein Buch und eine Pro- 
grammkassette zum Komplettpreis von 
69,- DM anbietet (siehe letzte Seite dieser 
Ausgabe). Auch die Spreichererweiterun- 
gen dieser Firma wurden im Preis dra- 
stisch gesenkt und dürften somit eine in- 
teressante Erweiterungsmöglichkeit dar- 
stellen. Man kann also unschwer erken- 
nen, daß dieses Mal die Gunst der Stunde 
genutzt und auch die Interessen der Ver- 
braucher berücksichtigt werden sollen. 
Man kann nur hoffen, daß das so bleibt!!! 
Wir von der „Compute mit“-Redaktion ha- 
ben es uns jedenfalls zur Aufgabe ge- 
macht, alle C-16/116-User umfassend und 
ausführlich über dieses System und das 
marktspezifische Geschehen zu informie- 
ren, zusätzlich werden wir dafür sorgen, 
daß dieser Computer auch weiterhin sei- 
nen festen Platz in der Zeitschrift „Compu- 
ie mit” hat. Zum Abschluß treten wir noch 
mit einer Bitte an Sie, liebe Leser, heran: 
Schreiben Sie uns doch Ihre Meinung zu 
diesem Sonderheft, teilen Sie uns Ihre 
Wünsche mit und üben Sie Kritik, wenn 
Ihnen etwas nicht gefällt. Wir sind für jede 
Leserzuschrift dankbar und werden ver- 
suchen, die eingegangenen Vorschläge in 
der nächsten „Compute mit“ bzw. „Com- 
pute mit“ Sonderausgabe zu berücksich- 
tigen. 

Und nun viel Spaß mit der „Compute mit“- 
Sonderausgabe Nr. 2! 








Eingabe-Hinweise für Commodore C-16/116-Benutzer! 


Um Ihnen die Eingabe unserer Listings zu erleichtern, 
werden zukünftig alt C-16/116-Listings ohne Steuerzei- 


Tastenbezeichnungen für Steuercodes 


CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 


TASTE NEBEN RECHTEM SHIFT 

SHIFT-TASTE & TASTE NEBEN RECHTEMSHIFT 
SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 


chen abgedruckt. Alle Steuerzeichen werden in unseren | 
LISTINGS durch Klartext, welcher die Taste kennzeich- 


CYAN 
PURPLE 
GREEN 
BLUE BLAU 


GELB 


TUERKIS 
PURPUR 
GRUEN 


net, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie 
in jedem Tronic-Magazin. 


{TRONIC-NORM) 


CONTROL-TASTE & 4 
CONTROL-TASTE & 5 
CONTROL-TASTE & 6 
CONTROL-TASTE & 7 
CONTROL-TASTE & B 


CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 

ROT 


2. TASTE VON GANZ RECHTS OBEN 
TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 
SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE) 
FUNKTIONSTASTE Fi 
FUNKTIONSTASTE F3 
FUNKTIONSTASTE F5 
FUNKTIONSTASTE F7 
FUNKTIONSTASTE F2 
FUNKTIONSTASTE F4 
FUNKTIONSTASTE F6 
FUNKTIONSTASTE F& 
CONTROL-TASTE &1 
CONTROL-TASTE & 2 
CONTROL-TASTE & 3 


YELLOW 
RVSON 
RVSOFF 
ORANGE 
BROWN 
LIG.RED 
DGREY 
MGREY 
LIG.GREEN 
LIG.BLUE 
HGREY 
CTRL 


CONTROL-TASTE & 3 
CONTROL-TASTE & 0 


INVERSE EIN 
INVERSE AUS 
ORANGE 
BRAUN 
HELLROT 
DUNKELGRAU 
MITTELGRAU 
HELLGRUEN 
HELLBLAU 
HELLGRAU 
CONTROL 


COMMODORE-TASTE & 1 
COMMODORE-TASTE & 2 
COMMODORE-TASTE & 3 
COMMODORE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE ZUSAMMEN MIT 


DEM NACHFOLGENDEN ZEICHEN. 
(Z.B. GTRLA ENTSPRICHT CTRL & A} 


FLASH ON BLINKENEIN CONTROL-TASTE &, 
FLASH OFF BLINKEN AUS CONTROL-TASTE &. 





Achtung: Einige Listings enthalten das Zeichen ”-”, dieses Zeichen entspricht dem Pfeil nach links (Taste ganz links oben) 
das Zeichen ” A ” steht für den Pfeil nach oben, 
das Zeichen "N ” steht für das (engl.) Pfund-Symbol (Taste neben Restore) 


Folgendes Beispiel demonstriert die Arbeitsweise unseres Systems: 


STANDARP AUSDRUCK: 


10 A$="TEST":PRINT"LIRMRIIEHALLOBRLEUTE !"=PRINT"TRONIC VERLAG” 


20 FRINT"LUBENDE" 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILENE 


10 AF="TEST"zPRINT*{CLEAR RIGHTZ DOUHNZ R 
EDYIHALLO<RIGHT2 BLUEYLEUTEISPACEI!"SPRIN 
T"TRENICTSPACEI VERLAG" 

20 PRINT"ICYAN PURPLE GREENYIENDE" 


Wie in dem Beispiei zu erkennen ist, wird das Herz-Sym- 
bot durch das Wort CLEAR ersetzt. Dies bedeutet, Sie 
müssen die Taste CLEAR drücken, um das Herz-Symbol 
zu erzeugen. Sollten Sie einmal nicht wissen, welche Ta- 
ste gemeint ist, hilft Ihnen ein Blick in unsere Tastenta- 
belle bestimmt weiter. 

Um im Listing Tastenbezeichnungen von Grafik oder nor- 
maien Texten zu unterscheiden, werden alle Tastenkenn- 
zeichnungen in geschweifte Klammern gesetzt. Diese 
dürfen selbstverständlich nicht eingegeben werden. 
Auch Leerzeichen innerhalb geschweifter Klammern 


<34> 
<117> 





Abgedruckter Klartext 


[HleH 215] 
[slel:/ 34 
MGREY 
LIG.GREEN 
[B[c#:127/ u 
HGREY 


Ebentalts stimmen einige Tastenbeschreibungen nicht‘ RE 


dienen nur zur Trennung einzelner Tastenfunktionen und 
dürfen ebenfalls nicht eingegeben werden. Um die Ta- 
stenfunktionen noch besser hervorzuheben, werden die- 
se in unterstrichener Kursivschrift (Schrägschrift) abge- . 
druckt. 

Steht hinter einer Tastenfunktion eine Zahl, welcheeben- 
falls unterstrichen ist, bedeutet dies, daß die letzte Ta- 
stenfunktion mehrmals betätigt werden muß. Die in un- 
serem Beispiel abgedruckte Funktion RIGHT3 bedeutet, 
daß die Taste RIGHT (Cursorrechts) 3 mal hintereinander 
betätigt werden muß. Auch einzelne oder mehrere Leer- 
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LO T E | 
'Kurz-vor Redaktiönsschluß:bemerkten wir, daß die Klärtext-Tabelle mit den-Schlüs- 
selworten beim 6-16/116 nicht ganz zutrifft. In erster. Linie sind hier die Farben be- 
trofien. Zwar stimmt die Tastenbeiegung genau mit den abgedruckten Code's über- 
ein, jedoch erscheint bei einigen Tastenkombinationen eine andere-Farbe auf dem 
Bildschirm. Die BESTEN [EEREHTISESCHTITCHSEIRWTTGENTR 


Richtige Farbe 


Gelb-Grün: 
Rosa 
Blau-Grün 
. Hellblau : 
Dunkelblau‘: 
‚Hellgrün, EN 


erein,.da der C-16/ 
116 die Cursortasten sowie CLR und DEL anders angeordnet hat. Da.diese Tasten je- 
doch beschriftetsind, dürfte.es hier keine Probleme geben: In zukünftigen Ausgaben 
werden wir reine. e:yollständig neue Tabelle ‚abdrucken. .® 





zeichen innerhalb von Anführungszeichen werden auf 
diese Art gekennzeichnet. Das bislang übliche Abzählen 
einzelner Zeichen entfällt somit völlig. 

Alle Zeichen außerhalb von den geschweiften Klammern 
werden normal abgedruckt und auch eingegeben. 

Auf den ersten Blick hört Sich das sicher etwas kompli- 
ziert an, ist jedoch in der Praxis ganz einfach. Wenn man 
sich erst an die in Kiartext geschriebenen Steuerzeichen 
gewöhnt hat, wird man den großen Vorteil dieser 
Schreibweise erkennen. 
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programme 


_ Checksummer OC Version 1.0 für C-16/116 





Die Arbeitsweise des G-16/116 Check- 
summers entspricht weitgehend der VC- 
20- und C-64-Version und braucht des- 
halb nicht näher erklärt zu werden. Da 
auch der C-16/116 nicht den größten Spei- 
cher besitzt, wurde hier die Methode der 
VC-20-Version gewählt und das Maschi- 
nenprogramm in den Kassettenpuffer ge- 
legt. Dies hat den Vorteil, daß kein Basic- 
Speicher verlorengeht. Der Nachteil be- 
steht darin, daß nach der Aktivierung des 
Checksummers keine Kassettenoperatio- 
nen durchgeführt werden dürfen, da diese 
unweigerlich zum Systemabsturz führen, 
Um die Kassettenoperationen wieder zu- 
zulassen, muß der Checksummer durch 
die beiden folgenden SYS-Aufrufe abge- 
schaltet werden: 
SYS 62158 : SYS 33047 

Aktiviert wird der Checksummer mit SYS 
818. Die Funktion und Arbeitsweise ent- 
nehmen Sie bitte der G64-Checksummer- 
Version. Eine Ausnahme bei C-16/116 sind 


die zusätzlichen Steuerzeichen 'FLASHON’ 
(CTRL-) und ’FLASHOFF (CTRL) welche 
ebenfalls durch Klartext ersetzt werden 
(s. Tabelle Tastenbezeichnungen). 


Arbeitsweise und Aufbau unseres Checksum- 
mers: 

Unser Checksummer besteht aus einem 
kleinen Maschinenprogramm, welches 
als Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette, denn 
Sie können ihn zukünftig immer wieder 
benutzen. 


Der Start erfolgt durch den Befehl „RUN“. 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „TRONIG ..“. Der Check- 
summer ist nun aktiv und man kann ein 
beliebiges Tronic-Listing eingeben. Nach- 
dem eine Zeite mit RETURN abgeschlos- 
sen wird, erscheint links oben auf dem 


Schirm eine Prüfzahl. Vergleichen Sie die- 
se mit der Zahl im Heft hinter der Zeile. 
Stimmt die Zahl überein, ist die Zeile rich- 
tig eingegeben. 


Auf diese Weise können Sie das gesamte 
Listing schnell und fehlerfrei eingeben. 


Interessant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 
nutzt werden können, ohne die Check- 
summe zu verändern. Leerzeichen außer- 
halb von Anführungszeichen werden 
ignoriert, da diese auf die Ausführung der 
einzelnen Befehle keinen Einfluß haben. 


Für alle, die nicht gerne abtippen, ist der 
Checksummer unter folgender Besteilnum- 
mer zu beziehen: 


oV 10 K Kassette 10 DM 
0V 10 D Diskette 15 DM 
























































Compute mit - Sonderheft - 2/86 
































Compute mi 


1 REM RER EEE <4> 0130 FRINT"TDGHNFSÄAVE/LOADIERACEFISTISP 

Z REM # % 2995 ACEFWAEHREND {SPACEFDERTSPACEICHECK-" <61> 
S REM * C16-CHECKSUMMER * x140> 60140 FRINT"SUMMERTSPACEFAKTIV{SPACEIIST 

4 FEM * %* <1Ol> „ISPACEINICHT {SPACEFIMOEBLICHTSPACEF!" Ea22lr 
5 REM * COFYRIGHT EY FRANKE BRALL %* 1825 60159 PRINT" {DOHNFBEACHTEN{SPACEISIETEPA 

5 REM * * <10F3%+ CEIDIEISPACEFHINWEISBEISPACE} INTSPACEFDEN 

7REM * C} 18.04.86 * x<181> 2 1895 
8 REM #* * x105%> 60170 PRINT"HEFTEN{SPACEFTCOMFUTEISPACEIM 

FP REM RR x<12> IT{ISPACEFUNDISPACEFCOMPUTRONIC" A234 > 
10 FRINT"{CLEAR DOHN SPACE2I96941SPACEZ} 0180: FRINT"CDOWHNIVIELISPACEISPASSTSPACE 
CHECKSUMMERTSPACEFOCTSPACEIL.DISPACEZF 4 FIISPACE: AUTOR: F.- BRALL/A444350NTRA} x116> 
#LDOHN?" “10O3> 603170 FOKE 814,147: POEEB15,251:POKE 816, 

11 FRINT”{SPACE2ZF$HLSPAGCEZITCOPYRIGHTISPA 147:FOKE 817,251 «1095 
GEIFRANKISPAGEFBRALLTSPAGEZI SATDOHN}" x110> 60195 SYS BIB:END «177%: 
12 FRINT" (SPACESIFUERTSPACEFTRONIC-VERLA 50201 DATA AY,2D,80,02,03,97,05,80,03,03 

6" Pr «196: „6&0,A2,FF,86,2A,20,59%,88,86,7RB, 1851 542790 
660000 DIMH (75); FORI=-OTOF £<123%r 60262 DATA 84,2C,20,75,04 ,AR,FO,EF,?0,09 

B0010 H(48+T)=IsH (65H I}=IH1O: NEXT <145> „20,57,87,20,79,04,40,D07,8B,2C0, 2018 ER2B> 
sonzo FORI= S1B TG 1010 :READAF x151> 60203 DATA SE,BE,20,57,87,94,0B,A?,00,8D 

&0030 H=ASC (LEFTF{AF,1}) <234> ‚„E4,03,8D,E5,03,8D,E6,03,18,A5, 2076 240: 
60049 L=ASC {RIGHT$(AF,1)) <253> 60204 DATA 14,65,15,8D,E6,03,AO,FF,C&8,Bi 

&0050 D=H(H) #16+H {L 3 35=S+D:POEEI,D E13> ‚3B,F0,20,C09,22,D0,0A,AD,E4,03, 2508 vi8> 
60050 A=sA+1: IFASITOTHENNEXT: A=-1 «97:5 60205 DATA 49,01,8D,E4,03,B1,3B,AE,E4,03 

60070 READY: Z=Z+1: IFV=STHENA0085 2177: ‚D9,04,09,20,F9,E4,EE,E5,03,AE, 2644 87% 
&0980 PRINT"DATAFEHLERISPACEFINTSPACEFZE süraa DATA ES,03,18,61,7R,6D,E54,03,80,E£6 
ILEISPACE} : "3 60200+Z: END 239> „03,0A,DO,F4,40,76,03,38,20,37, 2204 2107; 
60095 IFAXOTHENSOLOO 2116: &0207 DATA D8,BE,E2,03,8C,E3,03,A2,00,AO 

60090 S5=0:4=0:NEXT “2465 ‚00,18,20,39,D8,A9,5R,20,D2,FF, 2365 <115> 
680100 PRINT" LDOHN2" “1723 60208 DATA A9,00,AE ,E6,03,20,5F,A4,A9,5D 

&0110 FRINT"CHECKSUMMERISPACEFEINISPACE} ‚20 ,D2,FF,20,08,FB,20,08,FB,AC, 2780 “1677 
={SPACEFSYSTISPACEFBLBIPOHNI" 14075 60209 DATA E3,03,AE,E2,03,19,70,397,DB,AZ 

solzo PRINT"CHECKSUMMERTSPACEFAUSISFACE} „00,86, FF ,40,36,87,00,00,00,00, 177B A135 
={ISPACEFSYSTSPACEFAZLISBHSYSTSPACEISSOATL s0210 DATA 00,00,00,00,00,00,00,00,00,00 

DOUN:® xi122> ‚00,00,00, 0 2104> 


programme 





Ein wahres Top-Spiel für Ihren C-16-Gomputer 


Laufen Sie mit Pac-Mac durch das riesige 
Labyrinth und fressen Sie alle Pillen auf, 
| die auf Ihrem Weg liegen. Bei diesem Un- 
terfangen werden Sie von vier Geistern 
und drei Superpillen verfolgt. Erwischen 
Sie die Geister, verlieren Sie einen von drei 
Pac-Mac’s und zudem noch alle Superpil- 
len dieses Durchgangs, die dann erst wie- 
der in der nächsten Runde auftauchen. 
Vertilgt Pac-Mac eine der Superpilien, ist 
er für kurze Zeit selbst in der Lage, den 
Geistern „den Garaus zu machen“, Für je- 
de Superpille und jeden gefressenen Geist 
erhält man 100 Punkte. Haben Sie einen 
Durchgang heil überstanden, dann wird 
das Labyrinth neu aufgebaut, und Sie 
müssen sich nun mit sechs Geistern aus- 
einandersetzen. In der nächsten Runde 
sind es dann acht. 





Gesteuert wird Pac-Mac mit Joystick an Port 1. „Na, McEllister, wie wär's jetzt mit einer 
Speichern Sie das Programm bitte mit Partie PAC-MAC? 

S“PAC“ 1,1408,2390 ah. 

Geladen wird das Spiel mit LOAD““,1,1,, gestar- 
tet mit SYS 6336 . 








BRERAK 
Pc &k Ad SR TR SF 31435 2F 3F aF SF 3a 33753 Go 
amaz 22 ga Da oa Fö yiana Fi Fo FO Fo FO cc cc gun 
3i4AZ ga 07 ar ir 3F SF SF SF 
yig4az ga ar BF Ar aF aF SF 3F 314Ba aa Eca Fa FB FC FG FE FO 
3ı1aı1a aa Ei Fa Fa ac 28 Fe Ei 21483 3F 3F SF 3F 3 33 35 0 
>»i1413 3F =ZF 3F 3F ar ar Sf oa Yidca FC FC FE FO FO FS Co 00 
1425 za Ea Fa Fa FO FE Fo cd 31428 ga aa za 05 03 DOT BT 07 
yi1g22 am ay ar if 30 ic of 07 >i4pa au oa ga Ba Ca Ka Ei Eö 


>14D3 07 07 Gr 22 oo oo za 0 
>14EG Ed Ea ER ca va aa 09 &u 
>i4ES TE FC Fe& FC ES FC FE 78 
>i4Fa a7 25 81 2a aD 28 uS za 
Ji4FS za Gr za 16 26 05 28 iz 
»ısae ca 55 4a 48 40 46 da 4a 
21503 40 45 48 4a 40 4a da 40 
31510 48 48 Ja 4a 40 40 43 55 
>1518 48 40 40 49 40 4a da 4a 
»1520 40 40 da 4a 40 4a 43 u 
»1528 au’42 6F Ta 6F Ta csr Ta 
>1530 6F Fa SF 78 EFF Ta 6F T 

Yis22 EF 7a SF Ta sfr Ta 42 qd2 


>3143a au Ea Fa FS FO FO FO Fo 
>»1438 03 97 ar ir SF Ar ar 00 
3144a Fü FC FO FO FO FS Fa a0 
31448 oa oa 10 38 TC TE TFT 

31452 aa aa 10 38 TO FECE CE 
>1458 TF FF TFT SF IF Ga Be 
314508 FE FE FE FÜ FS EO ea 0 
Ji4ss mo am af if ar TFT Tr 

»147a aa za Fe FI FE FE FE FE 
31478 73 72 T7F 3E IC 05 80 os 
31450 FE FE TE 3E ic 08 Doc 
>1458 ga a7 DaF iF 2393 39 29 39 
31430 09 Ea Fa Fa 9% 90 90 9% 


SZ=-SH-r HB OBLIO»V 
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programme 


31540 EF Ta SF TaAEF Ta sr Fü Fi 72 


31543 EF 7A 6F Ta EF Ta 42 00 >15F8 vi v2 
En u = re ... . - E ie 
>1SSG BB 42 71 ?2 71 72 1 72 >1ra8 71 T2 71 72 71 72 42 0a 


ae J1TAB 08 Adi 40 40 40 40 40 49 
a19se, FL TE TE TE TE TE Te >171a EF Ta 55 40 40 40 40 49 
31568 71 72 71 72 71 72 42 42 u 
a ee = >i1T20 55 40 49 40 48 49 Er 7a 
21573 08 42 6F 7a 55 4a 4a 43 re ee 


m aa 5 
21980 6F 70 55 48 4a 40 40 40 Jırss Tı 72 an do da du 40.48 
Be nme dansk ze >1748 AN 40 40 48 40 4B 71 72 
a >iTsa 4A 40 40 40 40 4a 49 00 
en n Seı. te dm IL „er We J17SS Ga 42 SF TO EF Ta 6F Ta 
a ee >ırsa EF 7a SF Ta SF 7a SF 7a 
>1SBG 40 40 48 4B 71 72 An 4B 





‚ı vr2 ri 72 


>i1T63 EF Ta 42 TE TF 42 6F Fa 
>15B8 Ti 72 4A 48 40 4B TIL 72 >1rra SF 70 EF 7G 6F Ta 6er 70 
J15C0 42 TFTF 42 71 72 42 FF »1TTS EF Ta EF TA SF Ta 42 ou 
215C8, FF 42 er 7a 42 7FTF 42 >ı7s3a FF 42 71 T2 Ti T2 Ti 72 
rn »ıraa 71 72 42 TF TF 42 71 72 
—E er 3 EV En ERUD EE Te >1738 T1 T2 71 72 71 72 71 72 
315E8 de IF TF 42 EF Ta 42 FF Birma Ti T2 71 72 TA T2 42 FF 


s315Fa FF 42 FA FT2 AE FF TF 42 
3i15FS 71 72 71 72 71 72 7172 
>isas v1 72 71 T2 71 T2 F1T2 
1808 vi Ta 71 TE 71 72 71 TZ 
>3is1a 42 TF TF 42 71 T2 42 06 
1813 a0 42 EFF Ta 42 FF TF 42 
21828 SF 70 55.40 49 40 4a 43 
>16825 20 Zu Za 28 Zu 2a zu 20 
16539 55 da 4a 4a 4a 43 65F 7 
21633 42 7F TF 42 6F Ta 42 Ga 
>is4a ga de Fi T2 42 TF FF 42 
31543 71 T2 42 TF TFTFTF 42 
1554 208 208 28 za za zu 2a 2a 
31859 42 T7F FF TFTF 42 71 72 
1550 42 YFYF 42 Fi T2 4Z O0 
1668 BB 42 SF Ta 42 FF ?F 42 
»isra Sf 7a 42 TF TF TFT 4A 
1575 48 da 43 4a ga 4 40 4a 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 31TaS FF 42 SF Ta 55 40 48 49 
Ä >1TRG &F 78 55 4a 40 Ja 4a 49 
ı ?ıTBS SF 76 42 FF 7F 42 6F 78 
| >iTCe SS 4a 4a 40 40 43 EF Te 
| ?17C8 55 4a 4a 49 EF TO 42 FF 
! >3irbS FL 72 42 TF FF TFT 42 
| >ITEB Fi TE 42 IF TE 42 71 72 
| >ITES 42 FF FF TF TF 42 71 72 
| >UFFa 42 ?FF FF 42 Ti TE 42 FF 
| >I1TF8 FF 42 EF Fa 42 TFT 4E 
| >iseRH EF 7a 42 FF TF TF TF 42 
| 31808 SF Ta 42 FF TE a2 SF Fo 
I yısıa 42 FF TF FF FF AZ EF TO 
| 31318 42 FF FF 42 6F Ta ar an 
| 3ıs20 oa 42 71 72 4A da 40 4B 
| J1R28 Fl TZ AA da 4a 4a 4a AB 
| 

| 

| 

| 

| 

| 

| 

| 

N 

| 

| 


! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
) 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
>JırDa FF 42 71 T2 42 7F FF 42 
| 
| 
| 
i 
| 
| 
| 
) 
) 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


1838 71 72 4A 48 48 FU m 
>1634 4B 7F TF TF TF 42 6F TO A a 
a u >1833 4 40 48 40 4a 4B TA 72 
>1558 42 7 ‚FAZ SF 7 42 FF N rn m - pen . 
see Be - Y1840 49 40 40 AR 71 72 42 0 
31698 FF 42 71 72 4 4a 40 4B ü ee or lee sn 
u 21548 08 42 SF Ta Er Ta sr Fa 
>1638 71 TZ 4R 48 40 40 48 40 Eu BE Dee 
2 2 31850 EF Ta SF 7a 6F Ta SF Fa 
1ER 40 40 48 48 40 40 40 40 ® Perser T 
31953 EF 7a SF Ta er Ta sr 7 
Yisn3 40 4B 40 48 4@ 4B 71 72 ; 4 ne 
>1368 EF Ta 20 20 SF TO Er "a. 
J16BB 4A 4a 48 AB 71 72 42 FF © E he: 
: a Sen >1868 EF 7a SF TA Er 7a 42 du 
>1SB8 FF 42 SF TO SF 70 8er 78 ce ee 
an ER »1270 08 42 71 72 71 72 A 72 
>16Ca SF Ta SF 7a EF Ta SF 7a or pen dtı Te © 
ne = = = vn > >1arz Fi re 717 i T2 71 va 
>1SCH SF Ta SF 70 SF Ta cr 7a nn ee 
S Sr 7 31888 T1 T2 T1 T2 Ti TE 1 T2 
>isDa EF Ta SF 78 Er Ta 6F 78 ee ae ze 
- i 31383 71 72 20 28 71 T2 vi 72 
>16D8 &F 70 6F 7a SF FR 42 FF - % ze Alt 
>15EB FF 42 71 72 Ti T2 71 72 >iese 71 72 71 T2 71 72 42 FF 
31893 FF 4A 40.40 40 40 40 40 


>isEs Ti FTZ2 71 72 #71 T2 Ti FT 
s3ieFra.71 72 71 72 71 VT2 7172 
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programme 


>i1er8 4a 40 4a 40 45 4a 4a 4a 
>13nS 40 40 da 40 4a 4a da 4a 
>ı15Bo 4a 4a 4a 4 4a 4a da da 
>ı1SB3 4a 49 49 4G 49 4a dB Om 
»iSca AZ aa BP ga Da 3D 88 10 
>18C5 BD @8 Di 9D aa 11 BD Ga 
>15Dpa D2 3b Bu 12 BD aa D3 DD 
>1305 ea 13 ES Da ES AZ Ga ED 
>isEn 88 14 9D BZ 12 ES Da FF? 
>ises AZ aa SE 15 FF SE AP FF 
>»i15Fa A3 05 zu DE FF AB CO RC 
>»isr3 12 FF AG 1a Si IS FF nz 
>ıaaa ga BD 20 13 9b 9 2b HF 
>3i3a8 SD 9D 92 09 ES Er 8b Da 
>»ı3ı1a Fa A2 aa RD SA 19 9b 3D 
>13135 BE AI CF 3b SD SA ES EO 
yia2a GB Da Fü AF Ca £9 3C D2 
319323 FA 4C FB aan 1a Zu gi Zu 
>1338 03 za 4a za eD zu al zu 
31338 83 ga 18 12 85 i3 123 zu 
31948 12 1a a1 93 05 Da ar 45 
31948 AZ aa A393 15 55 55 N9 8 
31350 55 Di AI 85 35 D3 97 0 
31958 85 Da 535 D2 55 D4 13 55 
>13658 FF BO GE ES EB 25 DO FT 
»13685 85 DO 85 D2 55 D4 88 A 
>ı137a 5a 18 Es D1 Es D3 Es D5 
>»1378 90 EI ER RZ BG Ra Bl 56 
»ı3asa F? 28 4& 13 Bi D4 S3 5F 
31983 Ba 11 31 Da A9 6b 31 D2 
31998 za 08 27 DS EF ES En 18 
31333 Da Es 68 91 Da n9 55 91 
>19AG D2 Da EL EA ER EA 88 69 
>319aRA8 13 a3 OF 12 05 3% 38 Su 
>1>Ba i3 03 af 12 05 3A 30 30 
>413B3 72 73 73 AZ aa BD AS 19 
>21a7a SD Xı Bf na 77 3b Ci aB 
>1378 E83 Ea an Da Fü AZ 068 BD 
»ısDa E@ 13 3D DC af AB Tr 9D 
31303 DZ GB ES EA 88 Da Fa A3 
>137cE2 Ba Sp 23 23 5D 24 a3 Az 
>13E3 aa BD ES 13 OD D2 Gr A9 
>19Fö 77 53D DZ OB Es Ed 83 Da 
>iaFg Fo Aa 14 SD SS aa n9 an 
>»irnsa Sp 37 83 A9 ga Sp 35 a8 
>inas SD 36 33 AY iA 935 Ds 99 
»ı1R1a 1& 85 DT A923 57 85 Ei #9 
>1A13 5A 85 EI A?2 58 35 E2 99 
Jin2a 57 85 E33 AI 69 85 E4 AI 
»iR28 ER 85 ES AI 85 S7 ES AP? 
>Dinsa 67 85 ET AF 53 985 DS RZ 
>3ir3s ga AD a9 FF C9 81 38 FF 
Jirnda C9 a5 Ba F5 3D id SF ES 


>1A4S Ee Ges Da ED A2 aa AI i3 
>»i1As5B 3D aa 3F A9 08 3D u8 3F 


8 Gompube mir Compute mit - Sonderheft - 2/86 


| 3i1AS58 ES EB 898 Da Fi 208 7ER 13 
| y3iAsa A2 25 SE 4F 19 28 TB 19 
| 31AE8 AZ QB BD ES in 3D B8 11 
| 31ATa ES Ea 48 Da FS A9 23 85 
| Ji1A7S DE A9 24 85 DD A3 21 55 
| >1A88 DE A9 22 85 DF N3 29 8D 
| >1A88 44 iD A9 1D SD 45 1D A 
| >1n90 84 85 D3 N3 78 85 DA R2 
| >iA98 a0 A9 @1 9D 1E 3F ES EB 
| >iAna 83 Da F& n2 aa n9 88 9D 
| >iAns 1B 3F RA9 13 9D 18 SF E8 
ı >iABa Ea@ 83 Da Fi 4C 03 IE ER 
| >1ABS a8 ae 03 87 af 19 33 393 
| >iaca aa da ca EB Fa 33 90 9C 
| >iacs 3F 27 33 18 ac 97 83 0 
| >1ADB FC E4 cc 18 36 Ea ca aa 
| J1ADa 80 aa 03 87 GC 13 33 27 
| >JiREO 68 08 <a Ea 3a 18 cc E4 
| J1RES 3F 39 33 19 OF 07 83 au 
| »31aFra FC 90 9C 98 FO ES Ca 08 
| 341AFS A2 u BD BS ir 35 08 11 
>i1Be0 ES E@ 4a DB FS 4C BB 19 

>»1Bas AD 35 a2 18 6b 37 a3 Ba 
| J1B1@ 1C 8D 35 83 a9 SE 20 D2 
ı >1B18 FF A2 18 Ad 22 18 2a Fo 

>1E28 FF AE 35 03 AD 36 83 28 
| >»1R28 SF Ad 4C 33 1B 18 EE 36 
| >1B36 03 90 DE AD 34 083 CD 36 
| >1B383 03 9a 16 Fa 23 Be 11 n2 
| >1B40 iS AB 03 15 Za FA FF RE 
| >JiB43 22 a2 AD 34 03 28 SF A4 
| JiBsa 88 AD 35 83 SD 35 02 AD 
| >1B58 365 a3 SD 34 83 4C 32 1R 
| >1Bsa AD 33 a2 CD 35 03 >38 02 
| 31BSsS Ba DS AD 35 3 SD 33 83 
Ä >»iBra 40 3F iE 3A 48 A2 aa 99 

>»1B7S al 85 Di RAP 83 85 D3 39 
| 341Bs80 ma 85 Da 85 D2 18 85 F? 
| >1B38 Ba ac ES Ea 2a Da Fr Ss 
| 1838 Da 85 D2 63 mn 68 18 E6 
| >1B98 Di E6 D2 90 ED En an 48 
| >ıBna a2 au A3 FF 38 E9 61 De 
| >ıBna FC ES EC 33 83 Da F3 68 
| ?ı1BBB AR 6a En RC 238 02 99 20 
| >1BBS 99 Ca OF CE 38 93 AD 38 
| >1BCca a3 £9 11 Fa 83 40 16 1C 
| >IBCS zu 6a Ic A2 aa ED FO 14 
| >iBDO 9b ED BD R3 CA 3D ED 89 
| >1BDS ES Ea 1a ba Fa a2 ac ED 
| >iBEO an 13 3D SF BE AI 67 9 
| >iRES SF GA ES ER OB Da Fo AZ 
I 3ıBFa ac SE 4F 19 AS CS (9 
| JıBFS De Fa ma 22 a9 238 33 Co 
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| 
| 
| 
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| 
| 
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| 
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j 
| 
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I 
| 
| 
j 
| 
| 
| 
| 
| 
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programme 


>J3DES 1B ag Sp 11 FF 6a R2 
>1DcC9 84 s 1a 3F Cc9 ai Fa 14 
21023 03 BZ FO 2E C9 03 Fa 47 
>i1DDa 29 84 FO 55 ES E4 D3 DO 
>1DD3 E3 40 62 IE BC a8 3F BD 
>1DER 03 3F 85 FY 208 73 1B 8 
>1DES C8 Bi D2 C93 &D Fa 85 FE 
>ibFo aa SF Da Ed 28 DB 10 40 
»i1DF8 D4 1D BC oa 3F BD 88 SF 
>iEaa 85 F7 za 73 1B 35 Ei D2 
>1ERS C9 SD FO 85 DE ae 5F Da 
>Bi1E18 3 28 DB iQ 40 D4 1D FE 





Jızea ar 23 973 Co af Ad 24 A973 
>ı1S03 28 99 u uf 8 ce 27 De 
>1c1a Fü E95 65 45 ET 19 68 68 
>ı1215 n2 ga A939 gu Sb 1E 3F 5SD 
1028 1iB 3F A939 ga 9D 18 SF ES 
»i1c28 Ea 203 Da Fa A3 iA 85 Ds 
31230 A3 15 55 D7Y A3 53 35 DE 
31238 A939 09 SD 3A 03 55 DE Zu 
Ji1czaa Sa ic AZ aa AI 08 SD us 
>iu48 3F R3 153 5b Da 3F ES Ei 
>1-5a a8 Da Fi R3 29 SD 44 ID 
>1258 99 ib SD 45 ıD 40 03 iE 
zilad A 25 56 33 03 Ad 1F Su 
31ceS 11 FF AI GEF ED SE FF 20 
1070 SE IE #9 64 Sb BE FF z0 
31272 3E 1B A3 Fa SD BE FF 24 
21050 3E 1B 985 ca ig DE Eau 29 
1055 a0 SD ii FF Se EA äh 42 
>12398 AZ Ba A9 25 55 D5 A3 00 
31.95 55 D4 18 65 FY Ba DA ER 
>iche Ed 23 Da F?7 85 D4 88 Ar 
>i1cAg 58 18 ES IF Sa Fi EA AS 
>21.E8 Da 029 67 Fa ci ga Es DE 
ichs AS DE 29 64 Fa al SG A3 
>3i1cca 53 55 DE A393 BG 85 DE A939 
Sic 29 Sb 44 iD A9 15 SD 45 
+i1-bO iD 5a 28 iA za za ii 21 
1cDg 4% 
1LER 3a F9 09 05 BO FS SD 1a 
J1cER SF ea AD Ga FF XI Gi 30 
>2ıicFa F3 X3 05 Ba F5 3D IE 3F 
>1LF8 50 EA 4 Ds A DB? 55 Fr 
>ibou 2a SE ic Bi D4 C9 71 Fa 
2ilbos ab c9 71 Fa 83 ©3 7i1 Fa 
ibia 05 9 71 Fa 01 ea 26 98 
>1Db15 iE 25 SF iD za DR ir 50 
ibza AF 19 SD 39 83 28 SE 1E 
21D2S E89 Ad De As D7 SE FT 20 
>1D3G 73 iR Bi DB C9 &7 9a 07 
>31Db35 C9 EF EG 02 40 B3 1R 4C 
>1Db4a AT zu Ei za 29 1b za FR 
>1D45 1C 28 AF 10 46 D2 ic AR2 
21555 ca Bo 138 3F ER iR 3F 55 
21555 F? ZB 73 AB Ei Da 09 57 
>iDsa 90 35 09 ET BE 31 99 05 
21DSS SD 1E BF A9 &4 SC 37 03 
>31Dr78 A3 Da SD iS 3F Sp aa SF 
>1D78 SD 3A 03 85 DR AI TE 85 
>1l56 DS 28 88 1B Za 3F iD A939 
>1D23 ai 55 37 83 AI ad 5D 3 
>1b9u 03 A939 88 SD ID 23 68 ES 
21033 EG 83 Da BES 58 EA Ei 99 
Sibaa 05 8D 39 83 AI iF 5b il 
21DAS FF A9 Ca 8D 2 


L 

“a 

] 

Lei 

P3 

1%) 

Ir 

[v) 

ba] 

cr) 

7 

7 

ER 

ER) 

cn) 

be 
oe eo oe 8 8 8: 8 oe 8 oo oo ee 8 8 BC rt 9 9 or u u oo. © 
| Zu TEE Zr JE TEE Tue Ju Fur TEE TE TE TE TE TEE TEE TE Te TE SE TE TE Ze Kr Br; 
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prog 


0 


| >ırsa 
| >iFes 
| >AFrTO 
| >AırrS 
| >ıF8@ 
| >ı1F38 
| >ıry9a 
| >ars3a 
| >ıFas 
| >3ıFras 
| JırBa 
| »31FES 
| >iFca 

Jırca 
JirDa 
| >ıFDs 
| ?ı1FEa 

>1FEB 
| >iFFa 
| >JiFFa 
| >2000 
| >2088 
| >21 
|. >2018 
| >2026 
| >2823 
| >2a30 

>2238 
| yzaya 
| 32248 
| y2asa 
| 32058 
| 20658 
| >2as8 
| >zera 
| 22078 
| 32898 
| >ra883 
| 22898 
| »2098 
| >zaAd 
| »20#8 
| Y20BG 
| »J20RS 
| J2ace 
| y2acs 
| >2808 
| zes 
‚ >28E8 
| 20683 
| >zara 
| >2er8 
;ı >zıaa 
| >2108 
| 


>2118 


ramme 


3 
De 
FT 
Fa 
13 
2 
SF 
883 
72 
21 
32 
A 
33 
DE 
Gr 
FT 
Der 
rn3 
DA 


7: 


a3 
A? 
As 
A2 
13 
Fi 
BE 
ıE 
D3 
a5 
85 
a 
1c 
TF 
Da 
Da 
a9 
Da 
31 
2a 
DE 
ıE 
Er 


853 
17 
PAS] 
ir 
ES 
33 
35 
a4 


9 


E3 
Dr 
v3 
jet 
Dr 
Ei 
E3 
DE 
AS 
nS 
DE 
1 


E3 


ER 
SE 
SE 
b4 
21 
br 
35 
sb 
SD 
35 
nF 
ae) 
ag 
Sp 
ES 
D3 


=) 


va 
Fr 
D4 
25 
SD 
E8 
31 
55 
a3 
58 
Dr 
Da 
BE 
c3 
Az 
85 
57 
aa 
1E 
sD 
Sp 
=) 
su 


ale) 


EA 
3 
28 
er 
ad 
Fr 
90 


ar 
37 
37 
44 
E23 


‚= 
DY 
Bi 
DE 
&1 
5 
Es 
D7 
31 
Ei 
FT 
3 
ba 
ei 
BG 
a 
FT 
23 
au 
3 
13 
13 
N 
ab 


ES 


13 
sr 


D3 


85 
D7 
iai-) 
Db2 
3 
35 


Dr 
s5 
De 
31 
za 
52 
a3 
IS) 
ns 
ed 
zu 
»1 
ro 
za 
28 
1& 


gr en 


Eu 


ba 


De 
DZ 
lE 
EIE 
Da 
us 
13 
73 
a 
Sr 
67 
zB 
za 
#3 


ar 


E2 
Sa 
DY 
2 


ga 


52 
3 
bY 
31 
SE 


D4 


ai 
85 
TB 
FB 
gs 
ar 
a8 


18! 


[475 
Ei; 
ar 
A3 
a 
2a 
13 
13 
u 
DS 
za 
YD 
4o 
ER 
zu 
iz 
23 
4%, 
Sr 
iE 
Er 
2D 
85 
iS 


50: 


iD 


us 


>21193 
Y>2ıza 
>z2128 
>21238 
32133 
>2148 
32143 
32150 
>2158 
>2168 
>z21658 
>zira 
32178 
>2152 
>2135 
>2194 
>2135 
>21R0 
>321RS 
>z1RO 
>21E83 
>2ıca 
>2103 
>21Da 
>21D5 
>z1E0 
>21E8 
>21FB 
>21F5 
>2208 
2208 
>2218 
322183 
22208 
>2228 
>2230 
>2239 
>2248 
>2248 
>2254 
2253 
2264 
>22658 
>2270 
2275 
»2258 
>2288 


2238 : 


>2298 
>22AQ 
>22R8 
>22B8 
>=22B83 


Compute mib 


9 


az 
a4 
45 
SF 
Bi 
ar 
ei 
FT 
5D 
zu 
ar 
iR 
Fa 


iR: 


BC 
af 


a9 


u. 


38 
27 


68 
Sh 
28 
2a 


Az 
35 
Bi 
> 
DZ 
ic 


si 
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SE 


ZE 
55 
21 
FY 
3 


EG: 


13 
72 
05 
1% 


18: 


3 














programme 



























>2228 ; sp © 
32265 Ga Fü 39 BE 18 3F BD iR 
szeba SF 55 FT 28 73 AB 20 SE 
>22DS 10 B1 D4 31 Da A939 55 91 
>z2E8 D2 22 Bi D4 31 Da A939 55 
>22E8 31 D2 ca FT 28 73 IR Zu 
>22F@ SE IC Bi D4 31 Da A3 55 
>2EFS 91 DE SE Bi D4 91 Da A? 
32308 55 931 DZ ES EA 02 DA BC 
s2308 A4 DE Ab DV SE F7T 20V 
>23i@ 1B Z4 SE iX Bi D4 51 Da 
>2318 993 55 31 D2 CS Bi D4 591 
32324 Da A9 55 91 D2 Ch Fr 28 
32328 73: i 


A3 55 31 D2 88 Bi D4 | 
2338 91 D@ A9 55 91 D2 n2 08 | 
32348 BD FR BF AN 78 SE 88 FF | 
>2348 AD 88 FF SE 88 FF CD 8 | 
>235a FF Da F2 58 49 FF ng 29 | 
32358 @F An BD Fa BF Ca ar 98 | 
>2360 B2 09 80 n8 84 83 HS Da | 
32368 C9 084 FO OR C9 a6 Fa ar | 
32378 C9 a8 Fa 13 4C cs | 
323738 13 8D 21 1D 4C Cs AE RS | 
2380 BF SD 21 1D 40 Cs | 
32233 05 8D 21 1D 4C Cs 1E ER | 
en a 


Als Jäger des verlorenen Schatzes heißtes für Sie, dreigeheimnisvolle und reich- 
tumversprechende Truhen zu bergen. Doch bis „Indianer-Jones“ den Schatz sein 
eigen nennen kann, gilt es natürlich, zahlreichen Gefahren zu widerstehen. 





Auf dem Weg zu den Schatztruhen müs- 
sen Sie verschiedene Räume, die von 
Monstern bewacht werden, durchqueren. 
Sind Sie diesen Monstern glücklich ent- 
ronnen, werden Sie sogleich mit dem 
nächsten Gefahrenpunkt konfrontiert. 
Jetzt heißt es, sich einen Zugang zu dem 
im nächsten Raum versteckten Schlüssel 
zu verschaffen, indem man den eingang- 
versperrenden Stein durch geschicktes 
Steuern aus dem Wege räumt. Ist trotz al- 
ler Widrigkeiten eine der Schatztruhen ge- 
borgen, haben Sie Ihren neu erworbenen 
Reichtum zum Ausgangspunkt zurückzu- 
bringen. Achten Sie während Ihres Rück- 
weges darauf, daß Sie auf der gefährli- 
chen Zugbrücke nicht abstürzen. 

Falis es Ihnen gelingt, die gesamten 
Schatzkisten am Ausgangspunkt zu de- 
ponieren, können Sie sich als Sieger feiern 
lassen. Während der aufregenden Ber- 
gungsarbeit stehen drei Leben zur Verfü- 
gung. Bei all ihren Aktionen sollten Sie auf ” 
eine möglichst effektive Ausführung ach- Mit.diesem „Transportmittel“ wird es INDIANER-JONES schwer- 
ten, um SO in der High-Score-Tabelle an haben, vor seinen Widersachern den Schatz zu bergen. 


die Spitze zu gelangen. 


_Punktewertung: 


Jedes betretene, schraffierte Feld = 1 Punkt 

Zum Ausgangspunkt transportierte Schatztruhe = 800 Punkte 
Jeder aus dem Weg geräumte Stein = 200 Punkte 
Eingesammelter Goldsack = 100 Punkte 

Eingesammelter Schlüssel = 500 Punkte 

In Besitz genommene Schatztruhe = 500 Punkte 

Gesteuert wird mit dem Joystick. 
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10 REM COPYRIGHT 1986 BY MARKUS HOFFMANN 
20 REM 
SO REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM KRHRHHNaRHRR BLOCK 14 KERFNREHKARH 
90 DATA255,255,255,255,255,255,255,255,1 
„3,7,15,31,63,127,255 

100 DATA128,172,224,240,248,252,254,255, 
255,127,63,31,15,7,3,1 

110 DATA255,254,252,248,240,224,192,0,12 
9,146,73,146,73,36,146,73 

120 DATAO,28,118;92,126,94,52,0,0,6,9,95 
14 ,80,160,64,60,60,16,56,86, 16,40, 108 
130 DATA36,24,36,110,102,118,102,60,254, 
130,254,130,254,130,254,0 

140 DATAO,119,68,116,20,119,0,0 

150 REM zEXHHHRErRr BLOCK II Kuna 
160 DATA124,254,0,0,198,198,254,124,28,6 
0,0,0,140,12,12,13 

170 DATAA0,126,0,0,24,48,126,126,60,126, 
0,0,30,198,126,60,192,216,0,0,126,24,24, 
24 

180 DATA254,254,0,0,252,6,254,252,126,25 
4,0,0,254,226, 254,124 

190 DATA255 ,254,0,0,24,48,96,192 

200 DATA124,254,0,0,254,198,254,124,124, 
254,0,0,254,6,254,124 

210 DATA56,124,186,238,196,198,254,146 
220 DATA255,255,0,0,0,0,0,0,136,85,34,0, 
0,0,0,0,24,24,24,24,24,24,24,24 

230 DATAO,0,0,0,0,0,0,0,0,232,73,72,73,7 
2,0,0,1,3,3,5,1,131,71,59 

240 DATA128,172,192,160,130,196,248,192, 
7,153,103,11,50,6,12,60 

250 DATA225,222,224,208,76,76,49,56 

260 CLRSPRINT" CLEAR" SMH=3: TI$="000000" 
=VOLB 

279 COLOR4,1:COLORO,1:COLOR1,2 

280 FORI=0T095: READA: POKEI+14336,AsR=R+A 
=NEXT 

290 IFR<>1105SSTHENPRINT"{CLEARIDATALSPAC 
EIFEHLER{SPACEI INTSPACEIBLOCKTSPACEIT" LE 
ND 

300 FORY=0T0159: READS: POKEY+14720, 5: F=F+ 
S: NEXT 

310 IFF<>14872THENPRINT" {CLEARYDATALSPAC 
E>FEHLER{SPACEI INTSPACEHBLOCK{SPACEI II": 
END 

320 POKE45298 , 192: POKE65299 ‚56: CHAR1,28, 
0, "HHH" = FORI=0T09: POKE2076+1, 1263 NEXT 
330 AB=3552: M0=3563:KY=0:KI=0 

340 IFMH=1THENPOKE3101,32 

350 IFMH=OTHENPOKE3100, 32: FORI=0T0600: NE 
XTI: POKE65278 , 176: POKE645299 , 208: PRINT" CC 
LEAR}" 2 GOT01680 

360 IFMH=2THENPOKE3102,32 

370 IFRU=1THENPOKE3106, 10: 5C=5C+800:= SOUN 
21,500 ,6: FORI=OTD600: NEXTI 

380 IFRU=2THENPOKE3107 , 10: SC=5C+800: SOUN 
D1 ,500,6: FORI=0T0400:NEXTI 

390 IFRU=3THENPOKESLOB, 10: SC=SC+800: T$=T 
1$: I=0: FORI=0T0800: NEXTEGOTO1620 

400 PRINT"CHOHE DOHH REDFA@eeRRARRRERREA 
BERLELLLAREAFLATEALLARARBIHHITEI": 

410 FORI=0T021sPRINT"{REDIACHHITE}EEEEEE 
EEEEEFEEEEEEEEEEFEFEEEEEREEEEEEE {RED}I@" ; 
sNEXT 

420 PRINT" (REDITEERGEGERERRERRRLRRREERREE 
BaBgeaRapnegeae" ; : POKEA071,4 

430 POKE14592, . :POKE14593, . sPOKE14594 ,.3 


4&00-DORTMUND-DORSTFELD 


{KUPFER-SOFT} 




















<192> 
<1635> 
<107> 
<i193> 
x239> 
<203> 
<215> 
<251> 
“61 > 

«1207 
*28> 

“837? 

<168> 
<182> 
x192> 


x101> 


x98> 


x225> 
<122> 


<250> 
x26?7 


<254> 
<1897> 


<137> 
x111> 


x70> 
<16> 


<199> 


«297 


<141> 


“158> 
<1335> 


<212> 
x201> 


<15> 
%237> 
si67> 
<195> 
<30> 


x11> 


<127> 
<73> 


POKE14595, . :POKE14596, . :POKE14597, « 
440 POKE14598,. :POKE14599,. 
450 CHAR1,27,18," {BLUE FeesgeRBRRAREe" 





460 CHAR1,27,19, "@CHHITEIFFFFFFFFFFF {BLU 





EI" 2CHAR1,27,20,"@THHITE SPACEIL BLUE“ 

470 CHAR1,27,21,"ECHHITE SPACE11Y":CHARI 
26,22, "FISPRACEL2Y" 

480 CHAR1,27,23, "TBLUEIGTDGREYYITTBLUEYR@T 

















DGREYYI{BLUEFRIDGREYYITBLUEFETDGREYYIXBL 


UEI@CDGREYFYICBLUEIYBCDGREYYICHHITEY" 

490 PRINT" {HOHE WHITE RIGHTSIK" SC 

500 COLOR1,2,5 

510 FORP=0T104:CHAR1 ,27,P+2, "@{SPACE1I}®: 
NEXT:CHAR1 27,7, "BRRBEREERARE" 


520 CHAR1,27,3,"{HHITE SPACE12>" 

530 CHAR1,28,4, "33335553353 C":CHAR1,28,6, 
NIX<ZLEL<LLSNECHAR1 38, 3,73" 

540 CHAR1,27,3,"="” 

550 CHAR1,1,9, "YELLOW eRRRERRERReR" : CHA 
R1,1,15, Peegszeeeanea" 

560 FORG=OT04:CHAR1,1,6+10,"{HHITE SPACE 
11 YELLOW>@"SNEXT:POKESS64 „62: POKESS23,6 
570 CHAR1,0,12," HHITEIH" POKE3911,7:POK 
E2887 „247 

580 G0TO1F510 

590 PRINT” CHOBE}"”32PRINTSPC114)"2ISPACE)Y 
",TI$ 

600 GOSUB840: J=J0Y (13 

&10 IFKY=1THENIFAB=321F9THENGOTOIFLO 

620 ONJ+1GOT0590 „640 ,590,650 ,5799,660,5970 
670 

630 REM 

640 AB=AB-40:6051UB760:G605UR7 10: POKEAB, 9: 
POKEAB+40 „32: G0OT0390 

650 AB=AB+1 2: G0S1B780:GOS5SUB710: POKEAB „Br 
POKEAB-1 „32: GOT0590 

660 AB=AB+40:GOSUBB00: GOSUB71O: POKEAB „8: 
POKEAB-40 „32: 60T0590 

£&70 AB=AB-1 :G6G0OSUBB20:GDSUB7 10: POKEAB,8: 
POKEAB+1 „32: G0T0590 

690 IFPEEK AB) =S&THENI1400 

690 IFPEEK (AB) =7THENSOUND1,900,8:KY=KY+1 
: SC=SC+500 

799 IFPEEK AB) =F7THENSOUNDI „500,3: SC=8C+1 
00 

710 IFPEEK AB) =5STHEN1600: ELSEIFPEEK (AB) 
=&THEN16009 

720 SOUND „500,2: IFPEEK (AB) =STHENSC=SC+1 
730 IFAB=3218THENIFKY=1THENSOLND1 , 500, „3: 
POIKES3219,32 

740 IFKI=1 THENIFAB=35S2THENRU=RU+1: POKEA 
8,9: POKEAB+1 „32: 60T0530 

750 PRINT" {HOME RIGHTSY";SC:RETURN 

760 IFPEEK (AB) =OORPEEK (ABI =AORPEEK {AB) =4 
1THENAB=AB+A4O 

770 RETURN 

780 IFPEEK (AB) =O0ORPEEK {AB} =S640RPEEK (AB) =&4 
1THENABSAB-1: 

776 RETURN 

B00 IFPEEK (AB) =ODRPEEK (AB) =60RPEEK (AB) =& 
I THENAB=AB-40 

810 RETURN 

820 IFPEEK ABI=OORPEER {AB} =S5ORPEEK (AB)>=6 
1THENAB=AB+1 

830 RETURN 

8409 IFPEEK {AB-40) =4THENPOKEAB-AO „32: OWM=A 
B:60T0890 

850 IFPEEK (AB}=&4THEN1600 ” 

840 IFKI=1THENIFAB=3SS4THENGOTGISIG 

870 IFPEEK (3979 =BFHENF4AO 

880 RETURN 

890 0G=JOYt1) 

200 IFO=7THENAB=AB-1:G0OSUBS20: POKEAB,8:P 











<76>? 


x1&2> 


<104> 


<160> 


<51> 


<13> 
<21> 
<164> 


<83> 
<170> 


<162> 
<150> 


<101> 
x23> 


<148> 
<132> 


x2539> 
x252> 
x9> 


<12> 
%7> 


<222> 
<199> 
<204> 


<141> 
<206> 


<204> 
x229> 


<148> 
<126> 


23547 


x152> 
*25> 


<> 
1477 


<129> 
<167> 


<164> 
<187> 


x213> 
x207> 


s83> 
“1213 
<23> 
<137> 
<i> 
<A0> 





2 


Compure mik 
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DKEAB+1 „32: SDUND3 ‚500 ,8: POKEQW, 6: SC=SC+2 
00: RETURN 

9109 IFO=3THENAB=AB+1 : GOSUB780: POKEAB,8:P 
OKEAB-1 „32: SOUND3, 500 ,8: POKEBW, &: SC=SC+2 
00: RETURN 

920 SOUNDS,S500,8:POKEQW,& 

930 RETURN 

349 I=INT(RND(1) #113 

950 POKES3860+1 „6: G05UBL010 

60 POKE3860+1 „32: POKE3SB&O+I+40 ,&: G0SUBI 
oi0 

9790 POKE360+1+40 , 32: POKEI850+1+80,6:605 
uUB1010 

980 POKE3B840+1+80 „32: POKEIBAO+T+120,6:GD 
SUB1010 

990 POKE3BAO+I+120 ,32: POKETBOO+T+160,4:0 
OSUB1010 

1909 GOTOF40 

10109 Y=JOY<t)sPRINT"CHOHEY” 3 SPRINTSPC (14 
« IPPISPACEI"STIS 

1020 IFPEEK (AB) =6THENSOUND3 ‚500,8: 601016 
00 

10390 IFKY=1THENIFPEEK (3978) =8THENSYFO 
1040 ONY+1G0T01070,1050,1010,1060,1010,1 
070,1010, 1080 

1050 AB=AB-40: GOSUB760: GOSUBABO: POKEAB,B 
: POKEAB+40 , 32: RETURN 

1040 AB=AB+1 :605UB780: GOSLUBARBO:POKEAB,B 
:POKEAB-1 „32: RETURN 

ı10970 AB=AB+40:GOSUBB00: GOSUJBSBO: POKEAB, 8 
: POKEAB-A0 , 325 RETURN 

1080 AB=AB-1 :GOSUB820: GOSUB&ABO: POKEAB,B 
:POKEAB+1 „32: RETURN 

19970 IFPEEK (AB) =64THENSOUNDS „500 ,8:G0T01& 
00 
1100 
1110 
1120 
1130 
1140 
1150 
330 
1130 GOTO1240 

1170 MO=MO-40: POKEMD+40 ‚32: POKEMO,, 58: G0S 
UB1300: 6NT04530 

1180 GDTO1260 

1170 MO=MO+40: POKEMD-40 „32: PDKEMD „58: 605 
4813003 GDOTO1530 

1200 GOTG1280 

1210. MD=MÜ-1: POKEMG+1 „32: POKEMO, 58: G0SUB 
1300:G60T01530 

1220 IFPEEK (MO+1)=00RPEEK (MO+1 ) =60RPEEK ( 
MO+1) »42THENGOTO15SO 

1230 GOTO1150 

1240 ZFPEEK (MO=40) MODRPEEK (40) -ATHENG 
0T01530 

1250 GOTO1170 

1240 IFPEEK (MO+40) =ODRPEEK (MO+40) <A THENG 
OTO1530 

1279 GOTO1190 

1280 IFPEEK {MO-1) =00RPEEK (MD-1) =64THENGSOT 
01830 

1290 GOTO1210 

1300 IFPEEK (AB} =58THEN1&00: ELSERETURN 
1310 POKEAB,8:BI=0: II=0:Ul=0: IU=O 

1320 BI=0: 11=0:FORBI=0T09: FORII=0TO3: NEX 
Til 
1330 
13409 
1350 


RETURN 

IFAB=-3S65THENGOTOSFO 
MY=INT{RND(1I #4) #1 
ONMYGOTO1140,1160,1180,1200 
GRTO1220 

MO=Mü+1 3 POKEMO-1 „32: POKEMG, 58: 50101 


POKE3260+B1 ‚32: 60S5UB1370: NEXTBI 
FORUI=9TDOSTEP-1: FORIU=OTOB: NEXTIU 
POKE3260+U1 „59: 605UB137035 NEXTUI 
1350 5OT01320 

1370 N=J0Y (1) :=FORI=OTO8: NEXTLı IFKI=1THEN 
IFAB=32197THENPOKEAB+1 „32: POKEAB,8B: BOTDSF 
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<191> 


<27> 
<230> 
<51> 
<78> 
<244> 


<100> 
x353> 
<151> 


ıI6> 
<sas> 


<150> 


<134> 
2477 


<a0> 
x38> 
x59> 
“20> 
<1> 


<205> 
<222> 
<240> 
<184> 
<105> 
<177> 


<20> 
<205> 


<221> 
x233> 


<248> 
x5> 


<z10> 


<3> 
x20> 


<236> 
<48> 


x233> 
x76> 


<137> 
<68> 

s191> 
x241> 


<199> 
95? 

<113> 
<213> 
<143> 


Programme 


0 

1380 IFN=3STHENAB=AB+1 :6505UB1420: POKEAB,O 
sPOKEAB-1,32 

+1390 IFN=7THENAB=AB-1:605UB1440: POKEAB,B 
:POKEAB+1,32 

1400 IFPEEK (AB+40) «I2THENPOKEAB+4A0,,B:GOT 
01490 

1410 RETURN 

1420 IFPEEK (AB) =OTHENAB=AB-1 

1430 IFPEEK (AB+40) «32THENPOKEAB, 8: POKEAB 
-1,32:G0T01490 

1440 IFPEEK (ABI =1OTHENSOUND1 ,500, 3: KI=1: 
KY=91SC=SC+500: GOSUB7S50 

1450 RETURN 

1460 IFPEEK (AB) «OTHENAB=AB+1 

1470 IFPEEK {AB+40) »32THENPDKEAB, 8: POKEAB 
+1,32: GOT01490 

1480 RETURN 

1490 POKEAB , 32: 50UND1 „200 , 3: POKEAB+BO ,B: 
SOUND1 „300 , 3: POKEAB+40 , 32: SOUND1 ,400,3 
1500 POKEAB+120,8:SDUND1 ,500 , 3: POKEAB+80 
32: GOTD1A00 

1510 PRINT" C{HOHME}Y" 3 3PRINTSPEC (14) "?ESPACE, 
}"3TI$:G0OT01110 

1520 IFAB=-3S45THENGSDTOSFO 

1530 K=J0Y (1) 

1549 DOINK+160T01510,1550,1510,1560, 1510, 1 
570,1510,1580 

1550 AB=AB-40: B0SUB760: EDSUB7 10: POKEAB,B 
ıPOKEAB+40,, 32:3 60T01510 

1560 AB=AB+1 ı G0OSUB7B0: GOSUB710: PÜOKEAB,8 
:POKEAB-1,32:G0T01510 

1570 AB=AB+40: GOSUBB00: G05UB710: POKEAB,S 
sPOKEAB-40, 32: 60701510 

1580 AB=AB-1 :GOSUBB20: GDSUB710: POKEAB,„8B 
:POKEAB+1 ,„32:60T01510 

1590 IFAB=3565THENGOTOSYO: ELSEGOTDO1S10 
1600 SGUND3 „500 „5: MH=MH-1:FORI=SOTOSBOO: NE 
KT: GOTOS3O 


1610 REM 
1820 PRINT" TCLEARY"SCHAR1,18,07,"—-8" CHA 
R1,18,08," 1-":3608UB1710 


1630 PRINT" CLEAR?" 1 POKEAS299, 196: POKEAS 
299,208 

1640 PRINT" (DOHN3 RIGSHT2IHERZLICHENESPAC 
E}GLUECKWUNSCH. TSPACEIBUCSPACEIHASTESPAC 
EIDIE" 

1650 PRINT"CDOHN2 RIGHT12 ELASHONISTATUE 
{SPACE3GERETTET{ELASHOFF}" 

1660 PRINT"tDOHN2 RIGHT&IDEIN{SPACEISCOR 
E{SPACEIBETRAEBTISPACE}I: "SC 

1670 PRINT"{DOHN2 RIGHT2>DEINE{SPACE}ZEI 
T{SPACEIBETRAEGT{SPACE} "5 T$5 1 PRINT" {RIGH 
T>SEKUNDEN" 

1680 PRINT"CDOHN4 RIGHT2INDCH{SPACEIEINE 
SPACEYSPIEL{SPACEI {SPACE} (PRESSTSPACEIF 
IRE-BUTTON) ® 

1690 IFJOY 1) >127THENRUN: ELSE1690 

1700 REM #** S.H. #* MUSIK ## S.H. ##* 
1710 I=0sFORG=OTO1:RESTORE1730:FORI=1T02 
0: READW: SOUND1 „W, 15: SDUND2,W-7 ,15:NEXTEs5 
NEXTO 

1720 RETURN 

1730 DATA118,7,118,118,118,169,118,262,1 
18,345,262,118,162,118,7,162,118,7,7,7 


























<247> 
<46> 
<122> 
x47> 
<21> 
<797 
<213> 
<74> 
<&l> 
<104> 


x230> 
<91> 


<3&> 
<20> 
«52> 
<139> 
<166> 
<170> 
<235> 
<130> 
<217> 


*72> 
<103> 


<89> 
<223> 


x117> 


<106> 


x195> 
<335> 


x245> 


<1535> 


x73> 
<99> 
51> 


<63> 
76> 


rn 


sh> 


Jetzt kann die Jagd nach dem 





verlorenen Schatz beginnen! 


Gompube mit 


13 


14 


programme 
































Mit dem C-16-Computer auf der Jagd nach dem schwarzen Gold 























— Qıl of Texas = 


Das Spiel erstreckt sich über sechs Level, 
in denen Sie die Aufgabe haben, die vor- 
gegebenen Punkte zu vertilgen. Ist Ihnen 
dies gelungen, dann steuern Sie Ihren 
Bohrer durch das Gewölbe und zapfen Sie 
die richtige Quelle an. 

Natürlich treten während Ihrer Jagd nach 
dem schwarzen Gold Komplikationen auf 
und zwar in Form von drei Monstern, die 
Ihnen nach dem Leben trachten. Zusätz- 
tich kommt auch dem Faktor Zeit große 
Bedeutung zu, denn Sie dürfen die vorge- 
gebene Frist nicht überschreiten. Sollte 
dies geschehen, verlieren Sie eines Ihrer 
drei Leben, ebenso wenn Sie mit den drei 
Geistern aneinandergeraten. 


Tips: 

1) An manchen Stellen, besonders in Le- 
vel 1, müssen Sie sehr schnell sein. 

2) Bleiben Sie in der Mitte von zwei Eta- 
gen stehen, was nur erreicht werden 
kann, wenn der Bohrer zurückgezogen 
wird, dann läuft das Monster auf die 
linke Seite. 

3) Gehen Sie eine Etage tiefer, so folgt Ih- 
nen das Monster. 


10 REES ICHE 
20 REM« 
30 REM* 
40 REM* 
50 REM* 
60 REM# 
79 REM* 
80 REM* 
90. REMHRBERHBHORSRHRERHIHIIHTITEHIENEN 

100 ELR:VOL4:V=65280 

110 POKEV+18,PEEK V+18) AND2S1 

120 POKEV+19 „PEEK (V+197) ANDZOR48 

130 RESTORE1490:FORI=832T0849: READSS: PDK 
EI,SS:NEXT:5V5832 

140 FORI=12800T012959; READSS: POKEI „SS:NE 
XT 

150 Q=1:A=36492: 5=300: F=3852: FF=F: J=1024: 
F1=75:F2=F1:M=200:1L=0 

160 LI=3sNi=3112: n2=311M N3=311& 

170 GOTO1F50 

180 POKEN1 „65: POKEN2,65:POKENS „65: GH=1:P 
RINT”CHOHE BLACKILEVEL" 50: ": "PL; "PUNKTE 
u. GOSURBYO 

190 LL=VAL(TI$) : IFLL>LTHENL=LL>M=M-15 CHA 
R1,19,10,"":PRINTUSING"R##"5M 

200 IFM=OTHENBTFO 

zı0 PP=JOY{1) 


oıLl 
WRITTEN BY 


BERND WIEDLE 


ar: 


Gompube mib 


«185> 
<117> 
<158> 
<1373 
<88> 
<1577 
<145> 
<177> 
<9> 
<2> 
<172> 
<169> 


<253> 
xi11> 
x64> 
<244> 
<a> 
72057 
<246> 


<87> 
<33> 


„Ich glaube, der Chef hat unseren Gesprächstermin vergessen und 
spielt schon wieder an seinem C-16-Computer ‚Oit of TEXAS'!“ 


220 IFPF>127THENSIO 

230 ONPPGOTO520 , 240,450 ,240,570,240,540, 
240 

240 H=A-F: IFH>OTHEN27O 

250 FI=PEEK{F-40}3 : IFH<-39ANDF1< >7ATHENF= 
F-40: 50T0300 

260 Fi=PEEKtF-1) 5 IFH<OANDF1< >74THENF=F-1 
:G0TO300 

270 Fi=PEEK(F+40) : IFH>PSIANDF1< >74THENF=F 
+40: GOT0O300 

2980 F1=PEEK tF+1) : IFH>OANDF1<>7ATHENF=F+1 
:GOTO300 

2970 GOTO170 

300 F3=PEEK (F-JI}sPOKEFF „F2:F2=F1:FF=F:PO 
KEF,N 

310 IFF1=750RF1=740RF1=32THENIFO 

320 IFFS=GTHENSTO 

350 G0T0190 

340 C=PEEK tA-1) s D=PEEK (A-AO) : E=PEEK (A+40 
3 

350 IFC=740RC=SH6H0ORCSAAORCSHIORC=710RC=79 
DRC=&8THEN240 

360 IFD=480RD=77THENPOKEA, 71: G0T0390 

370 IFE=48THENPOKEA , 70: GDT0390 

380 PIKEA,66 

390 A=A-1:POKEA,67:5=5+2 i . 
400 IFC=NTHEN87O 





<197> 


x176> 
<219> 


<94> 
<192> 
<132> 


<143> 
<121> 


<x47> 
<36> 
<246> 
x161> 


<597> 


x177> 
xı1> 
<47> 
x0> 
<148> 
<132> 
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410 IFC=7STHENP=P+1: GOSUB&ARO 

420 GODTO240 

430 C=PEEK (A+1) 2: D=PEEK (A-40) 3: E=PEEK (A+40 
2 

44060 IFC=740RCSALORC=7LORC=FOORC=AYORE=54 
ORC=48THENZ40 

450 IFD=5B0RD=77THENFOKEA „64: G0T0480 

460 IFE=&4BTHENPOKEA , 57: GOT0480 

470 POKEA,66 

A480 A=A+1: POKEA,65:15=-5+2 

4970 IFC=NTHENS7FO 

500 IFC=7STHENP=P+1:GOSUBAAO: 5OTO240 

510 G0T0240 

320 C=PEEK (A-40}) :D=PEEK (A+1) :E=PEEK (A-1) 
»: B=PEEK (A-BO) 

5350 IFC=740RC=4BORB=45 THEN240 

540 IFD=46THENPOKEA „64: A=A-BOs POKEA, 72: P 
OKEA+40 „68: 5=5+2 

550 IFE=66THENPOKEA, 71: A=A-BO: POKEA,72:P 
OKEA+40 ,58:5=>5+2 

540 IFB=NTHENB7O 

570 IFB=75THENP=P+1:GUOSUB660: GOTO240 
580 GOTO240 

590 C=PEEK (A+40) sD=PEEK (A-1) sE=PEEK (A+1) 
:B=PEEK (A+80) 

600 IFC=740RC=ABORB=66& THEN240 

810 IFD=44 THENPOKEA, 70: A=sh+BO: POKEA,73:P 
OKEA-40,68:5=5+2 

620 IFE=4&THENPOKEA, 69: A=ArBO: POKEA,73:P 
GOKEA-40 „548: 59=-$5+2 

630 IFB=NTHENB7FO 

640 IFB=7STHENP=P+1:GOSUBA60 

650 GOTO240 

660 CHAR1,30,11,"{YELLOWY—-"PRINTUSING"# 
##%" 3 P:5OUND3, 1005,2 

670 IFP=RTHEN1 7509 

680 RETURN 

690 FORY=1T02: B=PEEK (A-1):C=PEEK {A+1} 
700 IFB=-4&0RB=&40RB=&9 THENPOKEA, 32: A=A-1 
ı 5=5-2: 60T0750 

710 IFC=&60RC=700RC=71 THENPOKEA, 32: A=A+1 
: 5=8-2: GOTO750 

720 D>PEEK (A+40) :E=PEEK (A-40) 

730 IFD=-620RD=-640RD=71THENFOKEA, 32: A=Ar4 
0: 5=8-2: GOTOB10 

740 IFE=6BORE=&90RE=7OTHENPOKEA, 32: A=A-4A 
0:8=5-2: G0T0810 

750 IFB=640RC=71THENPOKEA, 73:60T0790 
760 IFB=E490RC=7OTHENPOKEA , 72: 5070790 
770 IFB=4&THENPOKEA „45: 6010770 

780 IFC=66THENPOKEA,67 

790 SQUNDI „5,4: NEXT: IFX=1THENF3O 

800 GOTO240 

810 IFD>440RE=49THENPOKEA „67: GOTO8SO 

820 IFD=71LORE=70THENPOKEA „65: GOT0850 

830 IFD=48THENFOKEA, 72: G0T08S0 

840 IFE=4BTHENPOKEA,73 

850 SOLND1,5,4:3 NEXT: IFX=1THENFSO 

8450 GOTO240 

870 FORI=400T04005TEP-4:S50UND1, 1,2: SOUND 
2, 12,2: NEXT: FORI=1T0300: NEXT 

880 POKEF,FisL1=LI-1:64=0:M=200:L=0 

890 IFLI=2THENPOKEN3,32 

900 IFLI=1THENPOKEN2 , 32: POKENS3,32 

910 IFLI=SOTHENPRINT"CHOHE DOWN SPACE6}": 
GOTO2040 

920 IFGH=1THENRETURN 

930 X=ls IFA<>SSI2THENSFO 

740 F=38S2:ı FF=F:F1=PEEK (F)=FZ=F1:POKEF,N 
sX=0 

950 DGSLODPUNTILJDY 1) >0: TI$="000001":60 
TG180 

960 IF@=1THENG=41: N=83: PU=193: R=P+PL1: GOT 
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<223> 
x2358> 


<143> 


<B6> 
<133> 
x227> 
<90> 
<z12> 
<222> 
<107> 
«72> 


<159> 
<128> 


<133> 


<122> 
<35> 

<176> 
<143> 


<180> 
<198> 


<205> 


<50> 

<105> 
x196> 
x213> 


x247> 
<107> 
<56> 

<114> 


<104> 


<228> 
<2497 


<34> 


<126> 
<163> 
<172> 
<24> 
<52> 
<205> 
<108> 
<45> 
<187> 
x29> 
<92> 
<I> 
<168> 


<153> 
<52> 

<196> 
<238> 


<6> 
<21> 
<254> 
<52> 


<47> 


Programme 


01020 

70 IFO=2THENG=0:N=B2: PU=189: R=P+PU:1GOTO 
1100 

980 IFO=3THENG=2:N=81: PU=199: R=P+PU:60TO 
1170 

9799. IFB=4THENG=S: N=83: PU=199:R=P+PUSGOTO 
1240 

1009 IF@=STHENG=123:N=82:PUÜ=199:R=P+PU:6 
0T013109 

1010 IF@=6THENG=14:N=81:PU=199: R=P+PU:GD 

T01360 

1020 GDSUB1410 

1030 COLORO,15,4:COLOR4,1,7 

1040 PRINT” EBROHN} I TLLACARALLLILRURAEIN A 
AARLKARKRKLKAKAA KL UEGOSUBLA7O 

1050 PRINT" LLLLLLAALLLUISPACEF Litirtitte 
LULLLALSPACEI USAKS ULLA EOSUBLATO 

1060 PRINT" LLALICSPACEF TITAALLLLELRIALAN 
KLESPACEF ILL GOSUBLATO 

1070 PRINT" ALLLLLLLLLLLLLÜLIESPACEF LI L 
RALLLLLLAATSPACEY NA NA UEGOSUBL1470 

1080 PRINT" LACKÄWALLSALESPACEF LULLLLLAL AG 
LIESPACEF TILL AS GOSUBL14701 POKEA 
„73 

1090 FOR1=240932T04071: POKEI , 743 NEXT: TI$=" 
000001"+G60T0180 

1100 GSOSUB1410 

i11O PRINT" CBLACKY LLLLALLLELRACRRRRLRIN U 
ALLARAKALLENARSERA RE GOSUBL147O 

1120 PRINT" WLLAKLUAISPACEF SANTALLALLAALA 
LLALLKLLAESPACE Y\ "ALLA GOSUB1A7O 

1130 PRINT“ LALLRACSLALLLLAARAKAACSPACEN N 
AALKARALALLULLAN AS GOSUBLA4TO 

1140 PRINT" LLALALLALLLLLSPACEF LLLLLALALA 
LLULLLLIESPACEF VAN LLAL LU GOISUBLATO 

115090 PRINT" SSLASAISPACET LNANALLACALLILLAL 
KULLLAALANATSPACE "NN AS GOSUB1470: POKEA 
73 

1160 FORI=4032T04071: ‚POKEI, 74: NEXTS TIS=" 

000001 ":G60T0180 

1170 GOSUB1410:COLDOR1,3,0 

1180 PRINT" LLLLALLLLALRLLRAUL AN LLLAALL A 
RALLALLLLLANMEGOSUBLATO 

1190 PRINT" LLALAANLAANRALSPACEF LAN TLLIE 

SPACE} \LNANNAESPACEF N LANE GOSUBLATO 
1200 PRINT" LLCLUSPAREF SLLULLLILAUSLATSP 




















AGE> NULL NESPACEF “NM GOSUBI1A7O 





1210 PRINT" XL UNNA AAISPACEF N NUSPACE 
JALSLLELAAALSPACEF VLLT AS GOSUBLATO 
1220 PRINT" VILLLIUESBACEI VOLL USE 
ACEF NUNLASACKLALSPACEF “LLC GOSUBL1470 
1250 FORI=4032T04971:POKEI ,74: NEXT: POKEA 
,73: TI$="000001 ":560TQ180 

1240 GOSUB1410:COLOR1,4,0 

1250 PRINT" LSARALLLALLLLRRLLELUUN ERLLLLAUT 
LARARALLLLANSGOSUBLATO 

1260 PRINT" W\STSPAGEF WILNALLLUCSPACEF LI L 
LALKAAESPACEF N ANAIUESPACET NL NLA OT, GO 
UB1479 

1270 PRINT" LLLLALLLAICSPAGEF VILLA AESPA 
CE3 LLLLLAAACSPACEF NLNLUSPACEI VAL UN GOS 
UB1470 

1280 PRINT" LULUISPACEI NULL LUUUUSPACE N 
KALLKALLCSPACEF TALLLALALAL AN AS SOSUBLATO 
1290 PRINT" CALLRALATSPACEF RALLANLLLAUSPA 
CEF LILLALLLIESPACEF TINTATLAAMEGOSUBIATO 
13500 FORI=40321T04071:PDKEI,74:NEXT: TIs=" 
000001" :POKEA , 73:G0OT0180 
1310 S0SUB1410:COLOR1,12,7 
1320 PRINT” LLSÄLÄURÄSÄCLER SL ELELLA AG 
LULLLARAAS A GOSUBLATZO" 

1330 FORI=1T02:PRINT" WAL LULANESPACEY TILL 
SALULSPAGEF VI LAASALSPACEI NULL USPACEN 




















Compute mib 


<150> 
<204> 
<208> 
<207> 
<169> 
<37> 

<62> 

<123> 
<182> 
262> 

<150> 


<88> 


<246> 


<5&> 
<143> 


<237> 
<216> 
<212> 


x238> 


<148> 


x126> 
x184> 


<37> 
<220> 
<140> 
<64> 
<180> 


x1532> 
<28> 


<129> 
<210> 


<149> 
<211> 
<59> 


<251> 
<14> 


<200> 


15 


programme 


KALI GOSUBLATO j 

1340 PRINT" LLLIESPACEF ITLLILUCSPACE ILL 
\NLAULSPACEI KJALSNALAESPACEY LALLAKKAN ANGE GOS 
UB1470: NEXT 

1350 FORI=4032104071:POKEI,74:NEXT: TI$=" 
000001": POKEA, 73:60T0180 

1360 GOSUR1410:CDLOR1,15,0 

1370 PRINT" ALALLALALLALALLLAALIN ALLA 
ALAALALLAA ANGE GOSUBLATO 

1380 FORI=1T023PRINT® LLLIESPACEI LLLLIUS 
PACE> “LS LULLLUSPACEI INN LUSPACEI NUN 
{SPACE} \ N A": BOSUBL47O 

1390 PRINT“ LLLLLALSPAGEF NUNLLUESPACEF INN 
{SPACE} \SNALUEBPACEF VILLLUCSPAGEF TILL 
v" GOSUB1470: NEXT 

1400 FORI=4032T04071:POKEI „741 NEXT: TI$=" 
000001 ":POKEA,73:G60T0180 

1410 PRINT" {CLEAR DOHN2}" :PRINTSPC (15) "{ 
RED FLASHON}” | -tSPACEILISPACE2I-":FORI=1 
TOZ: PRINTSPC (15) " (FLASHON?—-SPACEI-TSPAC 
EI-TSPACEZI-":NEXT 

1420 PRINTSPC (15) "{ELASHONI-—T| SPACEI-IS 
PACE2I-T" :PRINTSPC (16) " {FLASHON?ESPACEZ 
I KSPACEZI I" :PRINTSPC (14) "{YELLOM RVYSON 
SPACE13}" 
1430 PRINTSPC (14) "{RVSON YELLOW SPACE LI 
G.GREEN SPACEIA YELLOM SPACE} " ıPRINTSPC ( 




















G.GREEN SPACE4 RVSOFF SPACE3 RVSON SPACE 
8 YELLON SPACE RVSOFE SPACEII-TSPACEII-" 
1450 PRINTSPC (14) "CRVSON YELLOW SPACE LI 
G-GREEN SPAGEIL YELLOW SPACE, RVSOFF SPAC 
EII-TIIMI* 

1460 PRINTSPC (14) "{RVSON YELLONR SPACE LI 
6.GREEN SPACE1l YELLOM SPACE RVSOFE, SPAC 
E4+ KSPAGE2I "RETURN 

1470 PRINT"-F2322I22IIJI2IIIII II IS III SH 8 
AIIISIZIIIIIG 

1480 RETURN 

1490 DATA162,0,189,0,208,157,0,48,189,0, 
209,157,0,49,202,208,241,9& 

1500 DATAS6,56,63,63,63,0,0,0 

1510 DATAO,S55,224,224,224,55,0,0 

1520 DATAO,0,255,255,255,0,0,0 

1530 DATAO,84,7,7,7,84,0,0 

1540 DATAS6,56,56,56,56,56,56,56 

1550 DATAO,0,63,63,63,56,56,5& 

1560 DATAO,0,248, 248 „248,56,55,56 

1570 DATAS6,56,248,248,248,0,0,0 

1580 DATAAB,68,68,68,124,56,56,56 

1590 DATAS&,56,56,124,68,68,68,6B 

1600 DATABB,255,255,255,255,255,255,88 
1610 DATAO,0,0,24,24,0,0,0 

1620 DATAO,0,60,60,60,60,0,0 

1630 DATAO,56,56,56,56,56,56,56 

1640 DATA255,255,255,255,255,255,255,88 
1650 DATAO,0,255,255,255,16,16,16 

1660 DATA16,16,16,16,16,16,16,1& 

1670 DATA255,94,44,24,24,44,94,255 

1680 DATAZ4,24,44,24,44,94,94,94 

1690 DATA44 ,66,37,66,44,66,129,195 

1700 DATA&,15,18,20,5,24,1,19 

1710 DATAA&, 66,66, 66,66,66, 66,66 

1720 DATAS16,7,543,9,516,9,453,9 

1730 DATA383,9,516,9,453,9,383,7 

1740 DATA345,9,453,9,393,9,345,7 

1750 COLORO,3,3:COLOR4,3,3:Q0=Q+1 

1760 IF@=7THEN1860 





<x194> 


<> 


<A5> 
<b> 


<250> 


<92> 


<159> 


<95> 


<52> 


<216> 


<211> 


<98> 


<120> 


<54> 


x2> 
<91> 


<250> 
«175> 
<x24> 
<241> 
<215> 
<173> 
<255> 
<160> 
<184> 
<188> 
<117> 
<155> 
<21> 
<2153> 
<58> 
<206> 
<179> 
<1497> 
<110> 
<5> 
<797> 
<19> 
<x187> 
<a8> 
<1077 
<102> 
<182> 
<85> 


1770 PRINT" {CLEAR DOWN2}":PRINTSPC (6) "{B 

LACKIGET SPACE IREADY {SPACEIFOR" 

1780 PRINT" (DOHNS}"sPRINTSPE (11) "{BLUEY/ 
KSPACEAY /F/TSPACE2I /ISPACE3Y /TSPACE2I/Y/ 
KSPACE2Y/" 

1790 PRINTSPC (11) "/TSPACESI /TSPACESI/TSP. 

ACE33 /SPACE2I/TSPACE4? /" 

1800 PRINTSPC (11) "/TSPACESY//TTSPACE2I 
SPACEZY/LSPACE2I///TSPACE2Y 7" 

1810 PRINTSPC (11) "/TSPACE#} /ISPACESI/TSP. 

ACEII/TSPACE2I /TSPACE#) /" 

1820 PRINTSPC (113 " ///TSPACE2I ///TSPACEII 
SPACE? /XSPACE3I ///TSPACE2> 7/7" 30: PRINT 

SPC (23) "/" 

1830 FORI=400T01020: SQUND1,1,12SDUND2,I- 
10, 1: NEXTı A=3492: F=3852: FF=F:F1=75 

1840 CHAR1 6,21," BLACKIPRESSTSPACEIJOYS 
TICKtSPACEIBUTTON! ! !"ıFZeF1 

1850 DD:LODPUNTILJOY (1)=128:M=200:L=0:C0 

LORO, 15,4: COLOR4, 1,7:G0T0960 

1860 DO: FORI=600T0B40STEPS: SOUNDI ,I„O:NE 
XTI:FORT=1T0600STEP-5: SDUND1 ,T,0:NEXTT 
1870 II=II+12L0O0PUNTILII=6 

1880 PRINT" {CLEAR DOWNZ3 RIGHT3 BLACKISUP 
ERLSPACE} ! {SPACE} ! TSPACE)Y ! TDOHNS} "PRINT 
SPC (6) "SIE{SPACEIHABENTSPACEIESTSPACEIGE 
SCHAFFT{SPACEI! 

1890 PRINT"{DOWN3 RIGHT3ISIETSPACEIHABEN 
{SPACE} IHRE {SPACE} BOHRUNGEN" : PRINT" {DOHN 
RIGHT+HERFOLGREICH{SPACEI ABGESCHLOSSEN” 
1900 PRINT"{DOHN RIGHT3YUND{SPACEYERRICH 
TEN" Pr "PUNKTE" 

1910 PRINT"{DGOHN2 RIGHT}WOLLEN{SPACEISIE 
{SPACEYESTSPACE+NOCHTSPACEIEINMALLSPACEI 
VERSUCHEN{SPACE)Y? SPACE) ?ESPACEI?ISPAGE> 
{iv 

1920 GETKEYHS$: IFHS="Y"THENGOTOLO 

1939 IFH$S="N"THENSCNLLR:END 

1940 601019720 

1950 COLORO,12,5:COLOR4, 1,0: SCNELR: JK=38 
18 

1960 CHAR1,11,8, "IBLACKIF////TEPACEZI SP 
ACEFI /"SCHARL „11,9, "TBLUEI/TSPACEZI SPA 
CET" 

1970 CHAR1,11,9," {GREEN?/TSPACEZI SPACE 
33 /TSPACE3> /" CHART ,11,10," {REDY/TSPACE2 
I/TSPACE3ZI /CSPACEZIF" 

1980 CHAR1,11,11,"tORANGEI /TSPACEZI SPA 
CE3} /{SPACE3} /"CHAR1 „11,12, " {YELLOWI /// 
FSPACE3> /CSPACEZI ///" 2 FORI=1T0500: NEXT 
1990 FORT=1T016: READSS: POKEJK ‚55: FORI=75 
OTO&O0STEP-5: 5QUNDI , 1,0: NEXTI= JK=JK+2 
2000 IFJIK=38240RJK=3B643 THENJK=JK+95 

2010 IFIK=3929THENJK=3858 

2020 NEXTT 

2030 DO:LODPUNTILJOY (1) >0:G0T0960 

2040 FORI=1T012:READSS WW: SOUNDI „SS, WW: N 
EXTI:SOUNDi „383,25: SOUND2 ‚262,25: SCNCLR 
2050 CHAR1,4,5,*{BLACKISIETSPACEIHABEN{S 
PACE}"PRINTP= CHAR1, 20,5, "PUNKTE{SPACEIE 
REICHT" 

2060 CHAR1,6,9, "WOLLEN{SPACEISIETSPACEIE 
S{SPACEYNOCHTSPACEIEINMAL"=CHAR1,3,11,"V 
ERSUCHEN{SPACE}???(Y/ND 

2070 BETKEYVS: IFV$="V"THENSOTO1O 

2080 IFV$="N"THENSCNELR:= END 

2090 GOTE2070 























z117> 


<59> 
<89> 
<104> 


<110> 


<190> 
<19> 
<145> 
x976> 


x221> 
<171> 


<43> 


<131> 


<173> 


<240> 
<215> 
<112> 
x235> 


<191> 
<176> 
<65> 


<151? 


<135> 
<181> 
<x184> 
<al> 
x78> 


<201> 
x214> 


<90> 
<250> 
<35> 
x123> 
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Listing - The End 





Sompute mi 
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Als Hubschrauberpilot haben Sie eine dif- 
fizile Mission zu erfüllen: Durch das zieige- 
naue Abwerfen von Bauteilen müssen Sie 
eine Brücke, die über einen gähnenden 
Abgrund führt, wieder in einen benut- 
zungsfähigen Zustand bringen. Ist Ihnen 
dieses Unterfangen gelungen, so kann der 
bereitstehende PKW zu den sich auf der 
anderen Seite befindlichen Robos rasen, 
um diese vor einer tödlichen Bedrohung 
zu retten. Alles muß möglichst schnell ge- 
schehen, denn den Robos kann jeden Au- 
genblick ein Stein auf den Kopf fallen. 
Doch bei aller Eile und hektischer Aktion 
sollten Sie vorsichtig und dosiert handeln, 
da es bei wahllosem Abwurf der Bauteile 
schnell zur Explosion Ihres Fahrzeuges 
} bzw. der Brücke kommen kann. 








































































































er) 


in, 




















' / Die Brückenteile werden mit der Taste „=“ ab- 
geworfen. 





















































































































































ii 


Schlagen Sie eine Brücke zu den Robos und retten Sie diese vor der 
drohenden Gefahr, die vom Himmel kommt! 








330 CHAR1,15,12,"{LIG.BLUEFBYTSPACEHMERL 


































































































In" <146> 
100 V=65280 ar 340 CHAR1,20,17," {HHITE3WOLFGANGTSPACEIO 

130 POKEV+19 ,PEEK (V+19) ANDSORAB x177> Z60 CHAR1,20,19," {HHITE34BO0LSPACEIBIELE 

140 FORT=932T0849: READA: POKET ,A=NEXT <120> FELDESPACEILT" <93> 
150 5YS5852 57 370 GOSUR1470 <202> 
1650 FORT=12800T013000: READA: IFA>-1THENFO 380 GETKEYAF: IFAS="" THENSBO <S5> 
KET,ATNEXT «1675 390 A=3399: A1l=3632: EE=0: S=1:C0=0 <222> 
170 DATA162,0,189,0,208,157,0,48,1897,0,2 393 REM -- nn nn <ZBN 
07,157,0,49,202,208, 241,76 <205> 400 REM -—- BILDSCHIRM AUFBAU -- <34> 
150 A=3389: A1=3632: EE=0:5=1:C=0 <11> 4310 REM ———-- 2-2 nn <45> 
190 REM == <80> 420 SENELR:= COLORI1,6:C0L0RO,7,1:C0OLOR4,7, 

200 REM —- TITEL-BILD - <153> 1 ass 
210 REM ----7------ 77722002 *100> 430 CHAR1,0,0,"{BLUE3 KTSPACES} -AISPACEB 

220 6=0: N=0: COLORO, 1: 56=0: AA=0: EDLOR4 [) 1 3 + -KISPACEIY SCASPACESY a <212> 
230 FORT=0TD3SSSTEPS «2272. 440 CHAR1,0,1,"{BLUE SPACEZ} „<{SPACESY ix 

240 CHAR1,0+T,0," {HHITE3@ -":CHARL,„OFT,2 KISPACES} »KISPACE2I KISPACESI -XISPACE 
2,41" 2195 KISPÄCESI" <230> 
250 CHAR1,0+T,1,"{BGREY}T— "=CHAR1,0+T, 450 CHAR1,0,15,"{BROWNMTTTTTT CSHIFTSPAC 
23," <136> E2ITT{SHIETSPACEITTTT {SPACE SHIFTSPACE} 

260 CHAR1,0+T,2,"{DGREY> I, = "sCHAR1,0+T, FFFFTTTESHIETSPACEZITTITTTITTIT" <195> 
2 net *1177 460 ECHAR1,0,16, "TBLACKI_1E_1E{SPACE27I_7 

270 NEXT x145> ae" <201> 
280 CHAR1,6,5, "TGREEN?] | SSPACEZII | SPACE 470 CHAR1,0,17,"WUPUHRRLSPACEZSI_UUUUUN"  <236> 
ZI I CSPACEZM I SSPACEIH | TSPACEZIIT" x247> 480 CHAR1,0,18," WU OUOHYR{BLUE} IHOOAROHO 

290 CHAR1,6,6, " {YELLOW I I TSPACE>T I I {SPA HRADDPIOPTIOOPLBLACKT _ UI EN <76> 
CEZMN I TSPACEZF | | {SPACE I} {SPACEZII I" “9573 490 CHAR1,0,19,"WUUUH 9448 {BLUE OHFOODDAG# 

300 CHAR1,4,7,"{PURPLEYT I TSPACEI| TSPACE> Orr ROOLBLACKF _UEOYYUYYR" 2 <198> 
IT ESPACEZI | TSPACE2Y! | TSPACEY TSPACEH I TC 500 CHAR1,0,20," PHP Y8 TITTTTL-8_@T]. 
SPACEZIL I" “241> 8_0_0_UUHHEHHFY" . <b2> 
310 CHAR1,6,8, "t{BLUHEI I TSPACEZY| | TSPÄLE2 S1Q REM ----------- nommen nn <145> 
HI ISPACEZH I TSPACES> | TSPACEZIII" <A8> 520 REM -- NEUER ZEICHENSATZ _- <235> 
320 CHAR1,&,9, "TORANGEY I TSPACE3ZFITI ISPAC 530 REM nom <166> 
E23) 1 SPACEZII I KSPACESI } TSPACEZY I" «178> SAO DATA24,124,24,16,57,124,124,57 <184> 
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programme 


550 DATAO,0,0,0,0,0,7,248 

560 DATAO,0,0,0,0,40,239,1& 

570 DATA0,0,0,0,0,0,192,62 

580 DATAO,1,2,4,56,127,127,255 

590 DATA254,127,63,127,2553,253,234,213 
500 DATAO,0,128,192,224,248,255,255 
610 DATA65,34,20,12,30,125,252,248 

620 DATA255,127,127,63,15,3,0,0 

630 DATA255,255,249,249,249,255,0,0 
640 DATA255,255,255,255,240,0,0,0 

650 DATA240,224,192,0,0,0,0,0 

660 DATAO,0,31,63,49,39,42,4 

670 DATA4,2,3,15,255,254,254,0 

580 DATAO,0,224,240,24,72,172,64 

&90 DATA255,132,74,81,32,64,128,255 
700 DATA32,32,34,42,186,187,255,255 
710 DATA128,192,200,248,249,221 ,223,255 
720 DATA1,3,19,31,159,189,249,255 

730 DATA222,221,188,93,238,253,207,191 
740 DATA24,126,90,255,249,94,126,24 
750 DATAZ,15,115,239,223,127,15,3 

7&0 DATA172,240,254,135,251,254,240,192 


770 DATA24,166,65,0,0,0,0,0 

780 DATAO,0,195,54,8,0,0,0 

790 DATA-1 

BOO REM mm nn 
810 REM -- (MIMI) _ 
820 REM m  — . .— — — ee nenn 
830 W=h+l 

840 CHAR1,20,3," {HGREYFDURCHGANG: "= PRINT 
C 

850 SOUNDZ, 1020 ,2:SQUND2, 1020,2 


880 CHAR,„3SS-W „5," EBLACK3 4 —-SPACE2}" 





870 CHAR, F35-W,6, "TDGREY3T—| {SPACE}Y" 
880 BETAS 
870 CHAR,35-W,7, "TDGREYF I, {SEACES” 





900 CHAR,33,14,"—" 

F19 CHAR,SS,1+C,"LREDI " 

920 CHAR,33,0+0,"{SPACEI" 

930 REM 

740 REM 

950 IFW>34THENW=0: E=C+1: 60701030 
9680 IFC>LSTHENGOTO1410 

970 IFN>BTHENGOTO1410 

980 IFA$="="THENN=N+1:G0T01120 
770 GOTO830 

1030 CHAR,O,5,"{SPACES}" 

1040 CHAR,„O,6, "ISPACES3" 


1050 CHAR,O,7,"{SPACES}" 

10640 REM 

1070 IFG>Z280THEN1550 

1080 REM -------------- 
1090 REM -- ARWERFEN -- 
1100.REM -—----- 


1110 GOTG8BIO 

1120 SC=SC+5 

11309 FORZ=0OTO2805STEP40: POKEA-W+Z „79: SOUN 
D3,1020-2Z ,„2:FOKEA-W+Z „32: NEXT 

1140 POKEA-W+Z,79: POKEA-W+Z-1024 ,113 
1150 IFA-W+Z=3680THENEE=SEE+1:S=5+1 

1150 IFA-W+Z=3485THENEE=EE+1:$5=5+5 

1170 IFA-W+Z=3S589THENEE=SEE+1:5=5+4 

1180 IFA-W+Z=3499 THENEE=SEE+1:5=5+2 

1190 IFA-W+Z=S6F8THENEE=SEE+1:5=5+& 

1200 IFA-W+Z=3577THENEE=EE+1: 85=$+3 

1210 CHAR1,27,22,"{YELLOWFPUNKTE{HHITE}: 
"PRINTSEC"IUP}F" 

1220 IFEE>STHENGOTO1270 

1250 GOTO1i110 

1240 REM 
1250 REM —— 
1280 
1270 





IFS< >22THENSOTO1S50 





x229> 
<123> 
<114> 
«52> 
<192> 
“26> 
<138> 
<104> 
<100> 
x13> 
<146> 
<146> 
s241> 
<193> 
A287 
2067 
«115> 
<147> 
<10> 
“577? 
x181> 
<111> 
x39> 
<1> 
x137> 
<181> 
2497 
<201> 
x158> 


<1l&1il> 
x377 
x3> 
<140> 
%2> 
<148> 
<26> 
<172> 
<202> 
x52> 
<a2> 
225 
<1697> 
x240> 
z111> 
<51> 
<125> 
<138> 
<153> 
<185> 
<118> 
x206> 
<104> 
x226> 
<x172> 
<93> 


<x71> 

<104> 
x204> 
“F1> 

x142> 
<112> 
<211> 
<137> 


ı37> 
<162> 
sa? 
“110> 
x156> 
<130> 


Sompute mib 


1280 IFAA>ATHENG=0: AA=0 

1290 FORY=-0T035: POKEA1+Y, 76: POKEAL+1+Y,7 
T:POKEAI+2+Y,78:PDKEZAOH+Y, FISEFARTZETDN 
O:NEXTT 

1300 POKE2609+Y , 115: PDKE2610+Y , 115: POKEA 
1+Y,32 

1310 VOLS: SOUND? „800 , 2: SOULND1 ,400,2:NEXT 
Y 

13209 POKEA1+Y ,32: POKEA1+1+Y,32 

1330 ARZAA+1:CHAR1,5,22,"{YELLOWFROROSTH 
HITE} =": PRINTAR" {YP}"SPOKE2363+G ,80+AA 
1349 SC=SC+10:8=1:EE=0:N=0: VOL8:GSOTDASO 
13590 FORT=1T0100 

1360 SOLND3 ,500-T#*2,2:SOLNDS, 300,3 

1370 FOKEA-W+Z+1-1024 ,1+T 

1380 POKEAR-W+Z ,82: POKEA-W+Z+1 „80: POKEA-W 
+Z+2,B1: FOKEA-W+Z-1024 , 120-T 

1390 NEXT ö 

1400 N=OsEE=0:8=1:5SC=-SC-100: G0T0O1550 
1410 FORT=1T0100 

1420 POKEA1+2,82:FOKEAL+3,80: FOKEA1+4 ,81 
1430 SOUNDS, 999-1 ,2:5DUND2,888,2 

1440 POKEA1+2-1024,113-T: FOKEA1+S-1024,1 
Z+T: POKEA1+4-1024 ,120-T: NEXT 

1450  S=1:EE=O 

1450 60701550 

1470 RESTORE1480: FORU=1TO18:READE ,L,K: SO 
UNDE ,L ,K:SOUND2,1022-U*30 ,2:NEXT 

14B0 DATA1,796,5,2,739,10,1,768,5 

1490 DATA1,739,5,2,644,10,1,1022,5 

1500 DATA1,796,10,2,739,10,1,834,20 

1510 DATA2,796,20,1,834,20,2,77&4,20 

1520 DATA1,810,10,2,788,10,1,796,40 

1530 DATA2,739,30,1,768,30,2,721,40 

1540 RETURN 

1541 
1542 
1545 
1550 
1560 
1570 


VOL3:SCNELR 
CHAR, 15,5, "{BLACKI@ —" 

CHAR, 15,6, "IDGREYIT—— " 

1580 CHAR,15,7,"{DGREY} |. 1" 

1570 REM 

1600 CHAR1,3,10,"{RVSON YELLOWFDURCHGAEN 
GE: "zPRINTC 

1610 CHAR1,22,10,"{RVSOH YELLOH3PUNKTE:- 
»:PRINTSC 

1620 CHAR1,15,15,"{RVSON YELLOW>ROBOS: ": 
PRINTAA 

1630 CHAR1,10,17,"{FLASHON RVSON PURPLE 

SPACEIGISPACEIATSPACEIMISPACEHETSPACE2YO 




















{SPACEIVISPACEYETSPACEIRTSPACE RUSOFF EL 





ASHOFE>" 

1640 RESTORE1480: FORU=1T018:READE,L,K:S0 
UNDE ,L,K: SGUND2,L.,KzNEXT 

1650 GBETKEVYAS$: IFA$=""THEN1650 

1660 RUN 390 


C-16-Fans aufgepaßt! 


<135> 


xbh> 
<4> 


<7 > 
<80> 


<119> 
2214> 
<120> 
x19> 

x229> 


x196> 
2457 
<157> 
x180> 
<242> 
z121> 


<142> 
<x54> 
7? 


<231> 
<119> 
x181> 
<151> 
<43> 

<B> 

“217% 
<152> 
s42> 

x177> 
x44> 

<163> 
<2335> 
x216> 
<160> 


x2037 
<144> 
x2135> 


<235> 


<s61> 


<168> 
<21> 
<221> 


) der. DLUCHEHE "Compute mit“- 


Ä IRRE: Nr. 7 finden Sie die 64 K 
‚Speichererweiterung zum Selbst- 
‚bau und weitere tolle B ä 
Ihr System! | 
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programme 
Jäger. der verlorenen. Möhre 


"Binny Jones“ lebensgefährliche Jagd nach der „Magischen Möhre“. Mit die- 


sem kurzen Satz könnte man das Spielgeschehen dieses C-1 6-Beitrages skiz- 
EICHE GTESERTILENGEN Programm, und Sie werden schnellfeststellen, daß 
hier wirklich Sekundenbruchteile über das Leben oder Sterben Ihres Helden 





Wagen Sie es ja nicht, etwas anderes als 
die Möhren oder Türen zu berühren, denn 
sonst verlieren Sie Ihr einziges, kostbares 
Leben. 

Sollten Sie es tatsächlich schaffen, alle 6 
Bilder mit einem Leben zu durchqueren, 
so sind Sie ein würdiger Bunny Jones, 
Schlüpfen Sie in die Rolle von Bunny 
Jones, dem Jäger der verlorenen Möhre, 
und machen Sie diese ausfindig. 

Der berühmte Archäologe hat auf einer 
seiner unzähligen Reisen eine alte Karte 
gefunden. Diese besagt, daß hinter den 
Bergen von Hasenhausen ein altes Schioß 
steht. In diesem Schloß befindet sich die 
sagenhafte „Magische Möhre“, die jedem 
Besitzer unvorstellbare Kräfte verleihen 
soll. Bunny Jones’ Abenteuerlust kennt 
nun keine Grenzen mehr. Er begibt sich 
sofort auf die Suche nach dem Schloß. 
Nach einigen Wochen findet er das alte 
Gemäuer dann auch an einem versteckten 
Ort, den bis jetzt noch kein Hase des 20. 
Jahrhunderts betreten hat. Als Bunny Jo- 
nes auf das Schloßdach geklettert ist, um 
von dort ausin das Schloßinnere zu gelan- 
gen, tauchen plötzlich wie aus dem Nichts 
Pfeile auf. 


Diese gilt es nun zu überspringen. Doch . 


entscheiden. 


aufgepaßt: im Schloßboden sind magi- 
sche Kreuze eingebaut. Diese müssen 
ebenfalls übersprungen werden. Hat Bun- 
ny Jones eine Tür erreicht, so wird er in 
die nächste Etage bzw. in das nächste Bild 
transportiert. Außerdem können Sie (Bun- 
ny Jones) die herumliegenden. Möhren 
aufsammeln. In manchen Bildern müssen 
Sie sogar alle Möhren aufsammeln. Die 
Punktezahl ist je nach Bild unterschied- 
lich. Insgesamt gibtes 6 verschiedene Bil- 
der, in denen sie mancherlei Gefahren zu 
überstehen haben. 


m. 


KYAWCV... 


mel - mr, m Sm. 


Bunny Jones 

Bunny Jones’ neue Richtung 
Bunny Jones’ neue Position 
Joystickabfrage 

Positionen der Gegner 
Richtungen der Tür (Bild 6) 


Merkvariable (falls alle Etagen geschafft) 
Anzahl der Möhren 

Anzahl der Etagen (Türen) 

Schrittweite falls Etage geschafft 
Merkvariable / Punktebonus 
Zählvariablen 


Um das Programm abwechslungsreicher 
zu gestalten, wurden 2 verschiedene Joy- 
Sticksteuerungen eingebaut. Die erste 
Steuerung gilt für Bild 2, 4 und 6. Hier 
kann man mittels Joystick an Port 2 in 8 
Richtungen steuern. In den Bildern 1, 3, 
und 5 gilt folgende Steuerung: 
Bewegung links/rechts: 
Joystick nach links/rechts. 

Sprung nach rechts: 

Feuertaste + Joystick nach oben. 
Sprung nach links: 

Feuerlaste + Joystick nach unten. 

l 


EL 


msv-rzmru>s-m 











Listing: Teil Eins 
































SORAB 2145 
40 REM ** TITELBILD x** . <1435> 
oO REM#** JAEGER DER VERLORENEN MDBEHRE %*# <103> 50 FRINT"{IGLEAR HHITE}==========={REDYELL 
1 REM#** *% 2205 HHITEI==S{REDYL(HHITE}===========>==>=t" KiZSH 
2? REM** {C) a/986 BY ** <176> ee FRINT"===2=2=22=2=2S5222r=e=s=22 22-2200 oo2020o0n 
= REM##* *# aR2> 147: 
4 REM*# MICHAEL STORCHMANN ** 9 > 79 FRINT"======tRERYNICLLIHHITES=STRERFNCE 
5 REM##* “ *% AD24r J{MHITEI=STREDITLICHHITESSTREDYTLLIHHITEF 
& REM#* 4290 GLADBECK *R ı72> ={REDYLLI{HHITEI====" 63:5 
7 REM#* ** A226r 80 PRINT"========={REDYELIHHITEI=TREDYITIH 
EB REM ER EHERHEREERHFHRER x2OL> HITEIY=={REDFLÄHHITEI={REDIL{HHITEI===TRE 
7 REM TRETEN x<202> DILCHHITE>==={REDITCHHITEYSTREDYULIHHITE)} 
19 COLORO,14,6:COLOR4,14,6:SCNELR {13ER ===" <51> 
- 20 RESTORES60: FORT=12288T0129 35: READY:FÜO 90 FRINT"========={REDYECHHITEI=SSREDITEC 
KET,Y:SNEXT <198> L{IRHITEI=TREDILIHHITEI==={REDYLLIHHLITE)= 
30 PDEE65298 ,30: POKE55299 ,PEEK 165299) AND ={REDYTLERVSONFNTERVSOFER HHITEI==me" <165> 
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Programme 


100 PRINT"========{REDIN{RVSONI \TRVSUOFE 

HHLITEI=CREDILCHHITEI=={REDILCHHITEI=RED 
3CCHHITEI=EREDILCHHITEIS{REDYL CHHITEI=== 
KREDFLICHHITE} 











[4 
HITEI=={REDYIL{HHITEI==ST{REDYILICHHITEI=TRED 


+ELECHHITEI=XREDITLEIHHITEI=TREDILERVSON 
+ I{RVSOFFY I{HHITE}I====" 














130 PRINT"==={LIG.BLUEFDERIGHTIETRIGHTIR 
{RIGHTZIV{RIGHTIELCRIGHTIRERIGHTILTRIGHT} 
O{RIGHTIR{RIGHTFE{RIGHTINIRIGHTIETRIGHT} 
N{HHITEI==" 

140 PRINTTÄCSLSSZELSELeclnälldgecdücdect 
zu 

150 PRINT"SÄÄ<£S<KcZc CREDIT CHHITEI<S RED 
FLIHHITEFLLECLSERELELLEIN 

160 PRINTTLSSÄÄÖSCCLigsckeiggehgelgcegcee 
4 Li5 % 
170 PRINT"S<S<<{REDINELLICHHITEI<{REDI NL 
EICHHITE3< CREDIT CHHITEFC< LREDITCHHITEIKT 
REDYELICHHITEIS {REDILLLCHHITEISKE" 

180 PRINT"<<<<<{RED3TCHHITEISTREDILCHHIT 
E3<{REDILCHHITEIT {REDILÜHHITEIS<LREDICEH 
HITE}<S {RED>LCHHITEIS<AREDIT CHHITE?I< {RED} 
L{HHITEI<S EREDYT{HHITEIC CREDILCHHITEIS<ÄE 
X rn 

190 PRINT"@<<<<{REDILCHHITEISTREDIECHHIT 
EI<CREDITCHHITEI< TREDILCHHITEIS<ÄREDILCH 
HITE}<ÄRED>LLLECHHITEISCREDILLIRVSONF NER 
VSOFE HHITEI<TREDILUCHHITEISE<C" 

200 PRINT"<<<S<<{REDITCHHITEIS<<CREDITCHH 
ITE}I< TREDILCHHITEI<<REDILIHHITEI< {RED} 
CHHITEI<SCREDILIRHITEISCREDILICHHITEYS<t 
REDYLIHHITEITLEEC" 

210 FRINT"<<S<<{REBFTCHHITEIS<S<TREDILIHH 
ITEI<{RED RVSON? IERVSOFFILLTRVSON}\{RVSO 
FF. HHITEIZ CREDIT CHHITEI<<TREDILCHHITEIE 
REDYL{RVSON} JERVSOFFF ICHHITEI<TREDILLECH 
HITEI<<E" 

220 PRINTTSSSSSELELELELLSESKELLESSCLEKEEE 
en 

230 PRINT" CDOHN> "TAB (16) "IBLACKISZERIGHT 
2 HHITEI“" 

240 PRINT" {RIGHT} {BLACKI#ZCRIGHT. HHITE} 
I CRIGHTSY"CRIGHT2 BLÄACKIULCKTRIGHTZ HHIT 
E} a. 

250 PRINT" {RIGHT BLACKISLLZIRIGHTZISHERL 
GHTA>KLELLSIRIGHTSIEH" 

260 PRINT"#LLLSESPACEIE' IHSHLLLLLLZESP 
ACEZIBELCHRART" 

270 PRINT" {RIGHTI-{SPACEIL1IBSTSPACEIBYTE 
PACE3MICHAEL {SPACEFSTORCHMANN®; = POKE2023 
„s2 

Z80 REM ** TITELMELODIE ** 

290 VOLS: RESTORE300:FORT=1T037:READR,M:S 
GLUND1 ,R,M: NEXTT:GOTO340 

300 DATA739 ,20,695,50,685,20,739,20,770, 
20,643,50,643,20,685,20,704,20,810,20 
310 DATA810,20,798,20,739,20,770,20,739, 
20,704 ,20 ,695,50,739,20,770,20,770,20 
320 DATA770,20,834,20,810,20,798,20,810, 
20,770,20,739,20,596,20,643,20,685,20 
330 DATA770,20,739,50,739,20,704,20,571, 
20,571,20,596,40 

340 PRINT" {CLEAR RIGHTILADEN{DOMN RIGHTZ 
+SIE{DOHN RIGHT2YDEN{BOHN}ZWEITENTDOHN R 
IGHTY TEIL. "zEND 

350 REM ** ZEICHENDATAS ##* 





































































































20 


Fi 
fi 
ne 


1045 


<x181> 


1857 


<201> 


“2175 


x71> 


“92> 


2A? 
xöbir 
{95> 
x184> 
<1> 
x199> 
£178> 
x156> 
sa2> 


x24> 
2145 


360 
370 
380 
3909 
A00 
410 
420 


DATAO,0,0,0,0,0,0,0 
DATA126,102,126,126,102,102,102,0 
DATA124,126,102,126,102,126,124,0 
DATA126,126,96,96,96,126, 126,0 
DATA124,126,102,102,102,126,124,0 
DATA126,126,96,124,96,126, 126,0 
DATA126,126,96,124,96,96,96,0 


450 DATA126,126,96,110,98,126,126,0 


440 
430 
460 
470 
480 
490 
500 


510 


320 
30 
540 
550 
360 
370 
580 
570 
&00 
610 
6209 
650 
640 
450 
660 
670 
680 
890 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
700 
910 
9209 
93309 
740 
950 
780 
370 
980 
9970 


DATA102,102,126,126,102,102,102,0 
DATAGO,60,24,24,24,60,60,0 
DATA3O,12,12,108,108,124,60,0 
DATA100,108,120,112,120,108,102,0 
DATAF6, 96,76, 96,76,124,124,0 
DATA66,102,126,126,102,102,102,0 
DATA102,102,119,110,102,102,102,0 
DATA126,126,102,102,102,126,126,0 
DATA126,126,102,126,96,96,96,0 
DATA126,126,102,102,110,126,126,1 
DATA126,126,102,126,120,108,102,0 
DATA126,126,96,126,6,126,128,0 
DATAi26,126,24,24,24,24,24,0 
DATA102,102,102,102,102,126,126,0 
DATA102,102,102,102,102,60,24,0 
DATA102,102,102,126,126,102,66,0 
DATA66,66,102,60,24,126,102,0 
DATA102,102,102,126,24,24,24,0 
DATA124,126,12,24,48,126,126,0 
'DATA25S ‚255 , 255,259, 259,255, 255,255 
DATA1,3,7,15,31,63,127,255 
DATA128,192,224,240,248,252,254,255 
DATA44,118,255,119,117,239,126,56 
DATA12,54,123,223,223,126,116,16 
DATAO,0,0,0,0,0,0,0 
DATA&0,54,123,215,253,222,118,34 
DATAO,0,0,0,0,0,0,0 
DATA1,7,7,31,63,63,255,255 
DATA128,274 ,2724,248,252,252,255,255 
DATA128,192,740,248,220,188,239,255 
DATA3,7,7,29,59,63,123,254 

' DATA255 , 255 ,255,259,255,239,107,73 - 
DATA1&0 ,233,253,2559,255,255,255,255 
DATA251 ,251,251,0,191,191,191,0 
DATAZ6,24,24,60,126,126,60,102 
DATA126,126,60,60,60,24,24,24 
DATA24,,24,24,24,255,255,255,126 
DATA64,41,73,70,36,24,24,24 
DATAO,0,0,0,0,24,24,0 
DATAO,0,0,0,24,16,32,0 
DATA60,126,118,110,102,126,60,0 
DATA24 ,56,120,89,24,60,60,0 
DATAS6,124,12,24,48,124,124,0 
DATA60,126,6,30,6,126,60,0 
DATA32,108,108,126,62,12,12,0 
DATA126,1264,96,124,6,124,126,0 
DATA60,126,96,120,102,126,60,0 
DATA126,1264,12,124,48,96,192,0 
DATA60,125,102,126,102,126,60,0 
DATA&0,126,102,126,6,125,60,0 
DATAO,24,24,0,24,24,0,0 
DATA68,40,255,126,126,60,24,74 
DATA255,64,32,16,8,4,2,255 
DATA255,2,4,8,16,32,64,255 
DATA255,255,255,05,170,255, 255,255 
DATAZSS,245,250,125,190,95,175,215 


1000 DATA255,231,231,129,129,231,231,255 
1010 DATA2S55,153,153,153,153,165,195,255 
1020 DATA255,255,129,129,129,129,255,255 
1030 DATA126,66,66,78,66,66,66, 126 

1040 DATA124,129,189,161,161,189,179,126 
1050 DATA&O, 126,219,255,231,195,126,50 


Hier entscheiden Sekundenbruchteile über Ihr (Spieler-)Dasein 


GComputs mik 


<64> 
227 
“252> 
297} 
<178> 
<1007 
<19> 
x82> 
<70> 
x68> 
<180> 
x131> 
<64> 
<2354> 
“327 
96} 
<78> 
<124> 
39 r 
x<42> 
sas> 
877 
1775 
x93> 
x9> 

375 
x41> 
<103> 
<777> 
«179> 
xi10> 
<121> 
<129> 
<195> 
<149> 
<2337 
<21r 
<184> 
<4> 

<96> 
x160> 
«22> 
<129> 
x130> 
x107> 
x30> 
<a0> 
<197> 
z103> 
x223> 
1405 
x24> 
<a2> 


AQT, 


x146> 
S32r 
x@11> 
<182> 
x26> 
«1817 
67:8 
161} 
974> 
<215> 
<b0:> 
zis1r 
<2> 
<193> 
2433 
<168> 
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1060 
1070 
1080 
1090 
1190 
1110 
1120 
1150 
1140 
1150 
1140 


DATAO,0,65,254,65,0,0,0 
DATAO,0,130,127,130,0,0,0 

DATAs6, 36,60,90,255,126,36, 102 
DATA1264,195,165,153,153,165,195,126 
DATAO,64,97,254 ,255,63,34,102 
DATAO,4,132,127,255,252,68,102 
DATAO,36,102,255,255,60,36,102 
DATA255,219,255,231,255,195,219,255 
DATAO,60,102,66,90,60,24,24 
DATA24,189,126,126,60,60,36,102 
DATA24,24,255,255,24,24,24,24 





Listing: Teil Zwei 


10 RE=O 
20 FOKE2023 ‚0: FOKE65278 ,50: POKE65299 ,FEE 
K (65299) ANDZOR48: VOLB 

30 COLORO,14,&:COLOR4, 14,6: 605UB1950: 608 
UB2010 

40 REM ** BILD 1 ** 

50 PRINT" {CLEAR RED3DAS{SPACEIABENTEUER" 
z PRINT" BEGINNT {SPACE AUF {SPACEYDEM"=SFRIN 
T"SCHLOSSDACH. " 

&0 GOSUB2030: PRINT" {CLEAR DOWN BROHNF)LR 
IGHT}) CRIGHTY) {RIGHT} ) {RIGHT283) {RIGHT} ) 
{RIGHTY I LRIGHT FI" 

70 FRINT"IIIYIIIIERIGHTZEINI DI)" 

80 PRINT") III) ID {REDIHTRIGHT21 GREENF—IH 
HITES—-£BROHNYI II) I) II" i 
90 PRINT"IYIPIIIIIIIIICLIG.BEUEITIBROHNF) 
{LIG BLUE TEBROHN?) XLIG .BLUEFIBRONNS DIE 
LIG.BLUE> TBROHN})) {LIG. BLUES UBROHNYDDIE 
£IG-BEUENTBRIHN DIDI UIID) 33" 

100 FRINTYDDDDDIDIDUHDDDDDDDI HDD) 329) 
IBERBPIER 

110 PRINT"IJ I) >) CRIGHTT ORANGE}; {RIGHTS 
35 {RIGHT43 5 TRIGHTS BROWN ))" 

120 PRINT") EI II II CHHITEI—TGREEN} | {RIGHTZ 
2 BROHNYDUIEII)" 

130 PRINT"DIYIIII III I CEIG.BLUETTEBROHNS) 
II) CLIG.BEHETHTCBROHNF DIDI I) ELIG.BEUBEITEB, 
ROHN>) ID CLIG.BLUEN KBROHNY) {LIG.BLUEYTER, 
ROHNIIINIIIII" 

140 PRINTPIDIDDDDDDDDDDI DIDI) 1133933) 
IDERERRER 

150 PRINT"IIIIIIIERIGHTT ORANGEYS{RIGHTZ 
33 {RIGHT4Y5 {RIGHTZ}Y 3 {RIGHTA BROWNY)))Y)) 
yı 

160 PRINT"IIIMD II IRIGHT22 GREENF-HHITE) 
-EBREHNPIDIIIIN" 

170 PRINT") I) III I CLIG-BLUEITKBRONNG) X 
£LIG.BLUEN KBROHNF I) ID) ) TLIG.BLUESTIBROHN 
3I)3 ) LIG.BLUE} KBROHNF) I) {LIG.BLUEFTCBR 
PrLISRBERZEREN 

180 FORT=1T03:PRINTIIIVIINIUNDI 299) 
DIDI DIDI 2) II) "NEXT 

190 FRINT" {BLACKIWILLKOMMENTSPACEFAUFLSP 
ACE>SCHLOSS{SPAGEISCHRECKENSTEIN{HOHEF": 
G0SUB2020 

200 BB=3440: X=9: Y=13: 0=30: W=9: PU=0: PRINT 
"CHOHE DOUWN4 RIGHTS RED}1":Z=3:ET=0:LE=O 
: 0P=180: 65=5 

210 A$="{GREEN}| ":B$="{GREENIY—LLEFT. DOHN 
BI-":C$="TSPACEI"SDE="TSPACE LEFT DOHNS 
SPACE?" 

220 REM ** PKTE-ANZ/BEWEGUNG PFEILE #** 
230 PRINT"CHOHE RIGHTT HHITE3"ZPU:PRINT" 
{DOHN RIGHTT YELLON}" RE: IFPU>RETHENRE=P 
u 

240 CHAR1,X, Y,E$:CHAR1,0,W,D#: X=X+1: IFX= 
ZZTHENX=9: ELSECHAR1 X, Y,A$ 

250 Q=8-1: IFQ=7THENG=30: ELSECHARI ,0,W,B$ 
260 GOSUB1630r IFLE=STHENZ2FO 

270 60T0230 
























































Compute mit - Sonderheft - 2/86 


«234> 
x99> 
<85> 
21537 
<100*> 
<185> 
<al> 
£77> 
x98O> 
<184> 
<91> 


21755 
ar? 


3 


xi12> 


<180> 


15> 


<> 


<128> 


<234> 


x199> 


<142> 
as> 


programme 


280 REM *#* BILD 2 ** 

290 GOSUB1950: GOSUBZ2O10: PU=PU+50 

300 PRINT”ICGLEAR REDYDASTSPAGEYISTISPACE 
IDER{SPACEFRAUMISPACEYDES":PRINT”"SCHLOSS 
MAGIERS. " : GOSUBZ030 

310 PRINT"ICLEAR REDY«TRIGHTZ PURPLEY“\”S 
TABC3TY ES" CRROHN} >" SPRINT" CHHITES {RICHT 
PURPLEY"S TABESTI SE "{BROUNF >" 

320 PRINT"{RIGHTE PURPLEY\" SZ TABUISTIZ "BR 
OHN> >" sFORT=1TO11:PRINTTAB(S7I5 ">"3 NEXT 
330 PRINT"{RIGHTZ BEUEFYTITELLOWFTLRIGHTZ 
BLUEYPIRIGHTTYITIYELLONSTXRIGHT2 BLUEY?E 
ORANGE} 3353553553355 (BLUEITIYELLOWS{RIGHT2 
BLUEY?" 

340 PRINT" {RIGHTZITTORANGEYS 3 3 TBLUEFTIRL 

GHTTY?IORANGE}S 33 BLUES TIORANGE?I ES 5335335355 
13 TBLUEYTPLIORANGE}S 5; {BLUEY?” 

350 PRINT’{RIGHTZITTORANGEFS 55 TBLUEFTIRZ 

GHTTSTP{ORANGEY SS 3 {BLUEYTIBRANGEFS 53333335 
55 TBLUEYPIORANGEYS 5 5 BLUEFTIHOHEF" 

360 G0SLB2020: X=5: Y=6:0=5: W=20: 0=37: V=6: 

BB=3313: UI=48:66=0 

370 PRINT"{HOHE DOHN4 RIGHTT HHITEY"2 

380 At="{PURPLEYNTDOHNY“SBOHN"SBt=PirE 
LLOHNTIRIGHTLIYTTRIGHT 143" 

390 C#="{BROUHN>>CDOHN LEFTY>DOHN LEFTYF 
{DOUN LEFTY>CDDUN LEFTI>TDOHN LEFTY>CDOH 

MH LEFT>>CDOHN LEFTY>IDOHN LEFTY>{DOHN LE 

ETY>XDOHN LEFTISTDOHN LEFTY>TDOHN LEFTS> 
SBOHN LEFTY>"SDS="XSPACE DOHN SPACE DOHN 


SPACE}" 















































SPACE DOHN LEFT SPACE}" 

420 REM #*PKT/BEWEGLNG WAND U. MONSTER*# 
430 FRINT"CHOHE RIGHTF LIG.BLUEF"SZPURPRI 
NT"{DQHN RIGHTZ, PURPLE3"SRE= IFPU>RETHENR 
E-PU 
430 CHAR1,X,Y,D$: X=X-1: IFX=OTHENX=5 
450 CHAR1 ,X,V,„A$:CHAR1,Q,W,E$: D=@+1: IFQ= 
STHENG=5 

460 CHAR1,2,W,B$:CHAR1 ,C,V,F$:C=C-1: IFC= 
STHENC=37 
470 CHAR1,C,V,C$:B05UB1460: IFGG=-1THENSO 


o 

480 GDTD430 

490 REM »* BILD 3 *#* 

500 FORT=101ST0O0STEP-S5=SQOUND1,T,1:50UNDS 
„T7,23NEXT 

sı0 GOSUB1950:GOSUB?010: PU=PU+100 

520 PRINT"{CLEAR REDYUFF/XSPACEYIDIESRAC 
E}HAELFTE" = PRINT"HABEN{SPACEYSIETSPACEIG 
ESCHAFFT . "3 PRINT"AEH/ISPACEIFAST. ": GOSUB 
20530 

530 PRINT"{CLEAR RIGHT? ORANGE} 333 RIGHT 
3335 <RIGHTBY 3 "Ss FRINT"{REDI«"TABCTT) "CHHIT 
E> KBLACKF—-" 

540 PRINT"{BLUE}Y- ---- {LIG.BEUEY KBLUE}- -, 
„nm XLIG.BEUEYHBLUEY- TLIG-BEUENKBLUEN 
{LIG.BLUEY TBLYE3F- - - {LIG-BLUEYTEBLHES- 
XLIG.-BIUES KBLUE}Y- - TLIG.BIUEY BLUE) - ÄLZ 
G.BLUEY KBLUE3I-- TLIG -BLYUES TEBLUEY-. - -.." 
550 PRINTTAB (13) "{ORANGEY, SRIGHTZY3 {RICH 
T733 {RIGHT23 3 {RIGHT I} 3 TRIGHT 533 "SPRINT" 
BLACKY-XLIG.BLUEI-" 5 

560 PRINT" {GREENF-.-..-- {LIG-BIUEIYTHGREENS 
- {LIG.BLYHEY HGREENY- - {LIG.BLEUEYKGREENY-, 
+ tLIG.BLUE3 TTGREEN}-.-. - {LIG.BLUEYTHGREEN 























Sompute mib 


<I> 
<a2> 


232} 


x104> 


<26> 


x129> 


<sor 


<150> 


<144> 
<117> 


<146> 


<110> 


<170> 
<a2> 


<a5> 
£184> 


x19> 


x2356> 
x43> 
<27Fr 


<226> 
x150> 


<B0> 


<189> 


<213> 


“1097 


2] 


programme 


2. {LIG.BLUEITUGREEN}-. {LIG BLUES KGREENS-, 
Ann iLIG.BLUE> TGREEN}-.o--- tLIG-BLYUEYKGR 
EENY-.---" 

570 PRINT"{RIGHT2 ORANGE>3 {RIGHT23 5 {RICH 
T433 {RIGHTS} 3 {RIGHT} 3 {RIGHTS} 3 {RIGHTS} 3" 
:PRINTTAB (37) " {BROHNY “TBLACKI—" 

SEO PRINT"LREDILSLTEEITISTIIEENITIITRT EN 
BEEEEEEEEEEEE 

5906 PRINT"{RIGHT, ORANGE}YS SS TRIGCHTSIS HER 
IGCHTA32 33 CRIGHT43 3 5 5 {RIGHTS> 3 3535 "PRINT 
BIBLACKY-LREDI-" 

&00 PRINT"{PURPLEIITITTITTRSIHLRTEETRETN 
BERENEZEZZERZERE, 

&10 FRINT"{RIGHT2 ORANGE}Y 333 {RICHTSIZXR 
IGHTEY3 {RIGHT63 35 5 {RIGHT43 3 3 353" 

620 PRINTTAB{ZTI"{LIG-BLUEY IBLACKS "FD 

RT=1T076: PRINT" {HHITE}Y?"32NEXT 

630 PRINT"{RIGHTS BLACKYDER{SPACEYTODESP 
ACEFLAUERT {SPACEFUEBERALL. - - THOHEY" = GOSU 
B2020 

640 BB=3353: X=2: Y=10:0=37:W=7:0=8: V=20:X 
X=-1:0F=120:ET=0:LE=0: Z=5:66=10 

650 PRINT"CHOHE DOHN4 RIGHTS. BROHNYS" 

b60 At="{LIG.BLUEY-TDOHNG LEFT REDY-":B$ 

="CHHITE> “{CDOHNS LEFT BROWN? DOWNG LEFT 
LIG.BLUE} '" 

670 CH="{SPACE RIGHTE SPACE RIGHTS SPACE 
RIGHTS SPACE)" SDE="ISPACE DOHNE LEFT, SP 
AGE>" 

680 E$="{ISPACE DOUNS LEFT SPACE DOUHNS LE 

ET. SPAGE}"ıF$=" {HHITEITP{RIGHTEITIRIGCHTE} 
PLRIGHTSYT" 

670 REM *#PKT/BEWEGUNG HUNDE U. LUECKE** 

700 PRINT" CHOHE RIGHTT BLACKY"SFPU:PRINT" 
{DOHN RIGHTT HHITEY" RE: IFPU>RETHENRE=PU 
710 CHAR1,%X, Y,D#2 X=X+2: IFX>I8THENX=2 

720 CHAR1,%X,Y,A$zCHAR1 ,0,8,E$:0=0-1: IFO= 

OTHENG=37 

730 CHAR1,0,W,B$:CHAR1,C,V,F$: IFV=1STHEN 
XX=12ELSEIFV=19THENXX=-1 

740 V=V+XX:CHAR1,C,V,0#: GDSUB1630: IFLE=5 

THEN77O 

750 GOTO7O0 

7&0 REM #%* BILD 4 ** 

770 GOSUBLFS0: 50SUB20 10; PU=PU+H3S0: COLORG 
‚2,7: COLOR4,2,7 

780 PRINT"{CLEAR LIG.BLUEFDASTSPAGEYHIER 
£SPALEYISTISPACEIDIE" SPRINT" VORRATSKAMME 

R. ":GDSUB2030 " 

790 PRINT"{CLEAR REDI*"sPRINT"{DOWNSF"SF 

ORT=1T012: PRINT" £{LIG.REDY#TRIGHT2Y";=NEX 
T:PRINT" #2" 

800 FORT=1TOLZ:FRINT"{LIG.REDF#LPURPEE} | 
{RIGHT} "3 NEXT: PRINT" {LIG.REDYTLIG .BEUE 
+" 

810 FORT=1T07:FÜORNN=1TO12:FRINT"TLIG.RED 
YALORANGE} SS "3: NEXTNN: PRINT" {LIG.REDI KQ, 
RANGE} "=NEXTT 

820 FORT=1T012:PRINT"{LIG.REDY@TORANGE}: 
3"; NEXT: G05SUB2020 

830 BE=3313: X=2: Y=14:U41=199:66=0: ZZ=1:A$ 
=ULCPHYRPLE> J{RIGHT2> |TRIGHT2> (XRIGHT2> |{R 
IGHT2> I{RIGHT2> I{RIGHT2> ITRIGHT2> I{RIGHT 
23 I{RIGHT2} |ERIGHT23 IRIGHT23 |" 

840 PRINT"{HOHE DOHN4 RIGHTS GREEN FLASH 
ON>AXELASHOFFY" 2 BES=" SPACE RIGHT2 SPACE 
RIGHT2 SPACE RIGHT2 SPACE RIGHT2 SPACE R 
IGHT2 SPACE RIGHT2 SPACE RIGHT2 SPACE RI 
GHTZ SPACE RIGHT2 SPACE RIGHT2 SPACE RIG 
HT2, SPACE" 

850 REM ** PKTE/BEWEGUNG MONSTER ** 

840 PRINT"IHOHE RIGHT7 BLUE FLASHON}”"S PU 
:PRINT"{DOHN RIGHTT. BLACK FLASHOFF}Y"zRE: 



























































<b> 


<223> 


<249> 


S23> 


«188% 
i193> 


<142> 


«2354> 
»113> 


Fr 
367 


205 


47> 


<59r 


<50> 


»170> 


2397 


ZAPF 


545 


<40> 


<11> 


«114> 


x48> 
<AI> 


IFPU>RETHENRE=PU 

870 ONZZGOSUBFCO, 910,920: 22=2Z2+1: IFZZ=4T 

HENZZ=1 

880 GOSUB1440: IFGG=-1THENF4O 

890 GOTU860 

900 CHAR1,X,Y,B#:X=X+1:CHAR1,X,V,At=:RETU 

RN 

F10 CHAR1,X,Y,B$:Y=Y-12CHAR1,X, YıAF=RETU 

RN 

920 CHAR1,X,Y,B$: Y=Y+1:X=X-1:CHAR1,X,Y,A 

$: RETURN 

930 REM ** BILD 5 ** 

740 FORT=1T030: SOUND1,890,1:SDUNDS,S00,3 

sFORI=1T025: NEXTI,T 

750 GOSUB1950: GOSUBZO10: FU=PU+500: COLOR4 

„755: COLORO,7,5 

g40 PRINT"CCLEAR BLUEYFALLENTSPACEISIETS 

PACEIJALSPACEFNICHT" =PRINT"AUF{SPACEIDIE 

{SPACEIKREUZE. ":GOSUB2050 

970 FRINT" CLEAR": FORT=ITO2ZSPRINT"TORN 

G RIGHTZISSSERESEHEHSHHRES 

as 

980 PRINTTAB (37) "{BROWNYLIGREEN>—" PRINT 

WILIG.BEUEHIIDIDIJ I CHHITE}-. - {BLACK} TI 
LLIG-BLUEFIDI DIDI)" 

990 PRINT"{RIGHTZ ORANGEISS333533353 

5555533535333 3555355 "SPRINT"IGREEN} 

10009 PRINT"{LIG.-BLUEIHI II YDI III) CHHITEF-.-.-, 

„{BLACKY TTTTTTTTITTITTTTELZG.BLUEIDDIIDD 

II) "2NEXT 

1010 PRINT"{RIGHTZ ORANGE) ySESSS2333353 

RERRRSSSEAESERRTH E35 5" HPRINTTAB(STI "BRON 

N3L{GREENI—" 

1020 FRINT"{REDYIIII MI II) CHHITEI-, -. - {BLA 

EKITTTTTITITTTTTTTEREBDI DI III 3" 

1030 FORT=1T038: PRINT") "3 :NEXTSPRINT"{RI 

GHT4 BLACK}YDIETSPACEIMDEHRETSPACEIISTISP 

ACE3BALD{SPACEIGEFUNDEN. {HOHE, DOHN RED}* 

a 

1040 G0SUB2020: PRINT"{HOHE DOHNA4 RIGHTS 

BLACKIS" 

1050 BB-3353: X=10: Y=B: 0=37:W=7:XX=1:66=1 

00: LE=0: Z=5: 0P=120 

1060 A$="{HHITEY-.-- TDOHNZ LEFTS3I- {DO 

HN3 LEFT4}---- TDOHNZ3 LEFT43-,--- (DOHNZ LE 

ETI}-.n. " 

1070 B$=" {BROWN} IDOHNS LEFTYLIDOUNG LEF 

TH_" 

1080 C$="{BLACKYTTTIEDRANZ LEFTS>TTTIDO 

HN3 LEFTAYTTTIDOHNZ LEFTS> TITKDOUNZ LE 

ETAFTTT!" 








BSEFREEFEHSBTS 
































EFT. SPACE}" 

1100 PRINT"CHOME RIGHT7T LIG.BLUE FLASHOF 
F}";PUSPRINT"{DOHN RIGHT7T YELLOW FLASHON 
F"sRE:S IFPU>RETHENRE=PU 

1110 CHAR1,X,Y,C$: IFX=24THENXX=-1:ELSEIF 
X=10THENXX=1 

1120 X=X+XX=CHAR1,X,V,A$:CHAR1,0,W,D$:0= 
8-1: IFO=0THENG=37 

1130 CHAR1,Q@,W,B$: IFPEEK (BB+40) =80THENI18 
50 

1140 GO0SUB1630: IFLE=STHEN1170 

1150 GOTOLLAO 

11&0 REM ** BILD 6 *#* 

1170 'GOSUB1950: SOSLB20 10: PU=PU+1000-COLO 
R4,6,6:C0L0ORO,6,6 

1180 PRINT"{CLEAR WHITEISIETSPACEIMUESSE 
N{SPACEIDIE SPACE} TUER" = PRINT" BERURHREN/ 
{SPACE NICHT" SPRINT"UMGEKEHRT. "= 60SUB203 
o D 














23% 
<228> 
<216> 
<244> 
<36> 


419> 
«227> 


<170> 


«1735 


<147> 


x82> 
x167> 


«42> 


<189> 


<x19&> 
<208> 


z7> 


2567 


x101> 


<219> 


<210> 


<233> 
xi6> 
sp4> 
“957 
xA6> 
«176> 
“al2> 


x144> 


“2285 





22 


Sompube miß 
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1190 FRINT"{CLEAR ORANGEF"s:FORT=-1T038:P 
RINT"3 "32NEXTT:PRINT"{HOHE REDI*":GOSUB2 
020 

1200 BB=3313: X=10: Y=18: Af=" {HHITEI-":B$= 
N CSPACE}" UI=37:66=0 

HON>ATELASHOFF}" 

1220 REM ** PKTE/BEWEGUNG TUER ** 

1230 PRINT" {HOHE RIGHTT YELLOWF"ZPUSPRIN 
T"CDOHN RIGHTT, BROHN}" SRES IFPU>RETHENRE= 
PU 

1240 CHAR1,X,Y,B$:0NINT{RND(1)%*4) +1G0SUB 
1280,1290,1300,1310 

1250 CHAR1,X,Y,A$:FORT=1T0S0:NEXT:GOSUB1 
4605 IFGG=-1THENIS7O 

1260 GOT01230 

1270 REM ** RICHTUNGEN DER TUER ** 

1280 X2=1:60SUB1370: RETURN 

1290 X2=-1:805UB1320: RETURN 

1300 Y2=1:605UB1346: RETURN 

1310 Y2=-1:60SUB1340:RETURN 

1320 IFX+X2< LORX+X2>SBTHENX2=O 

1330 X=X+XZ: RETURN 

1340 IFY+Y2<AORY+Y2>22THENY2=O 

1350 Y=Y+Y2:RETURN 

1360 REM ** ALLE BILDER GESCHAFFT #* 
1370 PRINT"{CLEAR HHITE}BRAVO/SIETSPACE} 
HABEN{SPACE>ALLESPACEIGLSPACEIBILDERTSR 
ACEIGESCHAFFT. 

1580 PRINT" (BOHN>DALSPACE}IST{SPACEIDIEE 
SPACE FLASHON ORANGEIMDEHRE{HHITE FLASHO 
FE SPACE} INKLUSIVELSPACEIMITTSPAGEFEINS 
PACEIPAARTDOHNFWAECHTER. " 

13590 PRINT"<DOHNA BLACKI TSPACEIFTSPACEI 
STSPACE} FCSPACE} FISPACE} /{SPACEI STSPACE} 
STSPACE> #{SPACE2 GREEN?-ISPACEZ BLACK FT 
SPAGE3 FSPACEI FISPACEI "TSPACEI FTSPACEI 7 
SPACE> {SPACE} FTSPACEI 7" 

1400 PRINT" tYELLOWM TSPACEITTEPACEITESPA 
CEMTSPACEITTSPACEITTSPACEIT SPACE 
CEITTSPACE2 ORANGEY „{SPACE2 YELLOWITS 
EEE Ar era er 
CET LSPACEIT TSPACEIT” 

1410 PRINTTAB{19) "<ORANGEI+" SPRINT" {DOHN 
2 HHITEIWENNTSPACEISIETSPACEFHNOCHETINMAL 
SPACEFSPIELENTSPACEIWOLLEN/" 

1420 PRINT" {DIHN3DRUECKEN{SPACEISIETSPAC 
EIR/{SPACEISDNST {SPACEFEINETSPACE}ANDERE 
{SPACEITASTE." 

1430 IFFEEK (198)=17THENBOTO2O: ELSEIFPEEK. 
(198) < >644THENEND 

1440 SOTO1430 

1450 REM ** JOYSTICKABFRABE 1 ** 

1460 IFFEEK (BB) <>42THEN1850:ELSEJ=JOY (2) 
= IFJ=OORJ>BTHENRETURN 

1470 ONJGOSUB1540,1550,1560,1570, 1580,15 
70,1600,1610 

1480 REM ** ABFRAGE OB BERUEHRUNG #* 
1490 P=PEEK (BE+RI) = IFP< >S2ANDP< >S9ANDPE > 
&7THEN1870 

1500 IFP=S9THENPU=PU+7:6G=66+1:SDUND2,7& 
5,2:60T01520 

1510 IFP=47ANDBGZUITHENBOSUBL8S0:RI=OSEL 
SEIFP=67ANDGB=UITHENGS=-1 

1520 POKEBB ‚32: BB=BE+R1:POKEBR-1074,34:F 
DKEBB,42: SOUND1 „883,2: RETURN 

1530 REM **8 RICHTUNGEN VON BUSS BUNNY*#+ 
1540 RI=-40: RETURN 

1550 RI=-39: RETURN 

1560 RI=1:RETURN 

1570 RI=41: RETURN 

1580 RI=40: RETURN 

1590 RI=39: RETURN 












































SEA 
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“2447 
x94> 


<232> 
<150> 


<231> 
<1827> 


<a5> 
<43> 
<136> 
<194> 
«2545 
<2353> 
395 
<118> 
<141> 
<112> 
<170> 
<99> 


<193> 


<x92> 


<292> 


<139> 


<241> 


<135> 


<254> 
<232> 
<44> 


P3> 


2B> 
<231> 


L253> 
<B9%> 
2495 


x250> 
SIS> 
x218> 
“217 
«82> 
137> 
x42> 
ZIS> 


programme 


1600 RI=-1:RETURN 

1610 RI=-41:RETURN 

1620 REM *#* JOVSTICKABFRABE 2 ** 

1630 IFFEEK (BB) < >42 THEN1850: ELSEI=JOY (2) 
> IFJ=OTHENRETURN 

1640 IFI=3THENRI=1:GDT01690: ELSEIFJI=7THE 
NRI=-1: GOTB1690 

1650 IFJ=127THENRI=-39: IR=41:60T01770 
1560 IFJ=133THENRI=-41: IR=39: 60101770 
1670 RETURN 
1680 REM »* 
1690 P=PEEK (BE+RI) = IFP< 
67THEN1870 

1700 IFP=67THENGOSUB1740 

1710 POKEBE,32: BB=BB+RI: POKEBB-1024 ,34:P 
GKEBB, 42: SOUND1 ,200,2 

1720 IFPEEK (BB+40) =BOTHEN1850: ELSERETURN 
1730 REM ** BILD/ETAGE GESCHAFFT %*# 

1740 ET=ET+1: IFET=ZTHENFORT=0TO101SSTEPS 
0:SOUND1,T,2: NEXT:LE=S: RETURN 

1750 SOUNDS ‚500,10: PU=PU+10: POKEBB,32:BB 
=BB+0OP: FOKERB-1024 ‚34: POKEBB ‚42: RETURN 
1760 REM ** SPRUNG LINKS/RECHTS ** 

1770 P=FEEK (BB+RI) : IFP< >32ANDP< >S9THENIB 
70 

1780 IFF=S9THENPU=PL+GG: SDUND?, 888,3 
1790 FOKERB, 32: BB-BB+RI: POKEBB-1024,34:P 
OKEBB,42:SOUND1,700,2 

1800 IFPEEK (BB+IR) <>32THEN19F00:ELSEPOKERB 
B,32: BB=BB+ IR: POKEBB-1024 ,34: POKEBB,42 
1810 SOLND2,800,2:60T01720 

1820 REM ** TEXT: TUER VERSCHLOSSEN #** 
1830 PRINT"CHOME DOHNS BLACKF"TAB(ZO) "LE 
LASHONY VERSCHLOSSEN. TELÄSHOFE} "RETURN 
1840 REM ** SPIEL ZUENDE ** 

1850 POKEBB,80: POKEBB-1024,1:FORT=1015T0 
SSTEP-30: SOUND1,T,2:S50UND3,T-4,4 

1860 SOUND2,T-2,1:NEXT:G0T01910 

1870 POKEBB,32: BB=RB+RI:POKEBB ‚80: POKEBB 
-1024 ,39: FORT=1T010: FORNN=1T05 

1880 SOLNDI „700 ,2:SOUND2,850 ‚2: NEXTNN:SD 
UND1 „800 , 2: SOUND2, 750, 2:NEXTT 

1890 GOTD1910 

1900 RI=IR: 60T01870 

1910 CHAR1,8,12," {BLACK} IHR{SPACEFLEBENT 
SPACE} IST{SPACE3VERWIRKT." 

1720 CHAR1,3,14, 


BEWEGUNG LINKS/RECHTS %*#* 
>32ANDF< >SFANDPS > 








1930 IFJOYCDI=128THEN2O: ELSE1FFO 

1940 REM ** BILDSCHIRMEINTEILUNGEN *%#* 
1950 PRINT"ICLEAR BLACK>PUNKTE: {RIGHTI1> 
LL":PRINTTABL1BI:Z"EE" 

1760 PRINT"REKORD: {RIGHTIT>EL"SPRINTTABG 
18); "LLC" 

1970 PRINT"BILDTRICHTZIE LRIGHTIIFLT"SFRI 
NT"COCCELELELICELCCLTECECCCELTLLCLLLLCCLE 
ELL" 

1980 FORT=1T017:PRINT"L"3 TAB(S9) 3 "L"3NEX 
T 

1990 FRINTTEELCCCTLEILLELELCCECCEELECCCCE 
ETEICLELELLIHOHEN" RETURN 

2000 REM *# FENSTER #* 

2010 POKE2021 ,4: POKE2022,0:FOKE2023,20:P 
OKE2024 , 39: RETURN 

2020 PRINT" {HOHE2F" RETURN 

20930 POKE2021 „22: POKE2022, 6: POKE2023,1:P 
DOKE2024 ‚38: RETURN 


Listing: The End 


CSompube mi 


"ZUM{SPACEISTARTENTSPACE 
" +FEUERKNOPF {SPACE}DRUECKEN" 


“Bir 
x38> 
A234> 
z4a1l> 
x105> 
x129> 
21467 
xra> 
1423 


“1987 
z42> 


x897> 
<120> 
X166> 
ıP5> 


z191> 
«179> 


x24> 
xB97> 


<108> 
<133> 
x204> 
“181> 


ab? 
x216> 


<2457 
<350> 


“1295 
<10> 

<179> 
C2I2> 
»145> 
x166> 
<136> 
<72> 

s221> 


s221r 


<64> 


=18> 


<95> 
x201> 


22295 
SI3> 


x11> 
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Programme 





Helfen Sie Diam, dem kleinen Glühwürm- 
chen, aus dem Verlies von Schloß Dark- 
castle zu entkommen. Steuern Sie ihn 


(über den Joystick an Port 1) durch die 6. 


Labyrinthe, und sammeln Sie die kleinen 
gelben Steine, die dort verstreut sind, ein. 
Haben Sie genug davon aufgelesen, so 
zeigt sich rechts oben im Rand das 
Schlüsselioch, das Sie dann nur noch zu 


e Mit Diam auf Punktejagd - 


sa Lichtgespenst, das oben am Rand hin 
und her wandert, trifft. In diesem Fall kann 
er wieder über 99 Einheiten verfügen, und 
das Licht geht ggf. wieder an. In den höhe- 
ren Levels ist Eile geboten, denn wenn der 
Bonus 0 wird, muß er ebenfalls sein Leben 
lassen. All diese Schwierigkeiten können 
Diam jedoch nicht von seinem Weg in die 
Freiheit abhalten. Das Spiel zeichnet sich 


durch seine gute Graphik und hohe Spiel- 
geschwindigkeit aus. Da der Spielablauf 
zu 90% in Maschinensprache geschrie- 
ben ist, dauert es am Anfang ein paar Se- 
kunden, bis die Daten eingelesen sind. 
Durch die Programmierung über DATA 
lassen sich die Labyrinthe relativ einfach 
immer wieder neu verändern (Zeile 285- 
374). 


berühren brauchen, um zum nächsten La- 
byrinth zu gelangen und den Zeitbonus zu 
kassieren. Leider hat sich Diam aber noch 
mit einigen schwerwiegenden Problemen 
herumzuschlagen: Wenn er ein Steinchen 
aufliest, vergrößern sich seine Ausmaße. 
Auch darf er weder den Bildschirmrand 
noch sich selbst berühren, will er nicht ei- 
nes seiner drei Leben verlieren. Schließ- 
lich muß Diam auch noch darauf achten, 
daß ihm das Licht nicht ausgeht. Er besitzt 
nämlich nur 99 Lichtenergie-Einheiten, 
mit denen er das Labyrinth beleuchtet, zur 
Verfügung. Geht ihm die Energie aus, wird 
es dunkel, und er muß blind durch Laby- 
rinth finden. Zum Glück kann er seine 
Energie wieder auftanken, wenn er dasro- 





„Guten Tag, meine Damen. Dürfen wir Ihnen heute abend bei uns 
zu Hause unser neuestes C-16-Programm ‚DIAM' vorstellen?“ 








1 REM HEUER HH 7X 1705 37 DATA-1 <149> 
2 REMFRRR* DpDIAM BERKER LFD Z97 REMeR# EINLESEN DER MASCHINENLODESHR* ‚201: 
EZ REMBERSBESERRRRRRAIRIAEN EHER 1725 40 RESTORE41:DO: READAF: IFAF="T5"THENEXIT 

4 RErauxex {C) 1985 BY EEE 7 LD075 :EILSEA=DEC (A$) 3 POKEB19+X „A: X=X+1: LO0OPF “162> 
5 REM##R#* TIM SCHLUETER EEE <1A> 41 DATA78,AY,41,80,14,03,49,03,8D0,15,03, 

& REMRHRRR FOLLENWES 5 ae L745 59,60,00,AE,40,03,CA,8E,40,03,00,21,42,0 

7 REMx##H##* 4574 BERGE RENHENK <2AB> {2} 2045 
BREMER OL 1775 42 DATABE ,40,03,6E,04,3E,AC,18,5E,A2,FF, 

7 REMRRRRRRENRIH HIN IR IHERURRH  7S17BF E8,BD,17,3E,7D,18,3E De 
10 PFORES6,97: FOKESS ,O: ELR: F=932B0; FOFREF+ 43 DATREO,„05,DO,F5,BCE,1F,3E,5E,03,3E,GE, 
18,PEEK (F+1B) AND2S1: FOKEP+19 ,FEEE(F+1MN A 02,SE,6E,05,3E,6E,05,3E,AC,QE,CE <156> 
NDSUR&0 A1ZI4> 44 DATAA6,DE,A4,DD,AS,C65,C97,10,00,04,A2, 

11 COLOR4,1:C0L0ORO,1:FORT=819T0851: READA 00 “185> 
SıFOKET ,DEC<A$) :NEXTSYSB1F=:FRINTCHRF (8) 2 <X200> 45 DATAAO,28,C07,11,0D0,04,42,278,A0,00,C07, 

12 FORT=158727T016000: READA: IFAF-1THENFOH 12,0D0,04,42,00 <224> 
ET,ASNEXT 1323 46 DATAAO,01,0C9,13,D0,04,A2,01,A0,09,86, 

13 DATAA2Z,00,ED,00,D0,7D,00,3C,ED,00,Di, DE,84,DD,AE,CR,03,A9,20,9D 1327 
20,00,5D,BD,00,D2,7D,00,3E,BD Z<12> 47 DATA41,0D,E98,ED,41,0D,C7,20,D0,10,77, 

14 DATAOO,DS,9D,00,.3F,E8,E0,00,DO,E3,18, 48,7D0,41,0D,A9 Dr 
[219] AIP> 48 DATA44,9D,41,09,8E,CB,03,40,CC,03,C9, 

17 REM#x##%# ZEICHENSATZDATEN uk LTE 41,D0,04,C4A,18,90,E93,A2,00,F0,EE,00,00 <244> 
20 DATA?SS,229 ,239,239,239,239,295,299 “173> 47 DATAZO,00,39,45,D6,05,0D9,60,15 EA: 
21 DATA36,I6,126,219,255,1975,128,60 x48> 56 1=14592: DO: READA$: IFA$SH"TS"THENPOFEI 

22 DATA60,126,255,255,259, 255, 126,60 eröl> ‚DEU (A$} : I=I+t1:L00P x138> 
25 DATAO,126,126,126,1756,124,126,0 463 58 DATAAS,DO,18,65,DC,85,DA,AS5,D1,69,00, 

24 DATA?FB,238,0,129,129,0,221,221 “2293 85,DE,A5,0A,38,ES,DD,85,DA,AS5,DB,EY,00 x2097> 
27 DATA127,8,62,40,62,10,42,8 agE> 61 DATASS,DB,AO,00,R1,DA,C9,44,F0,08,A5, 

=4 DATAZ55,1975,19753,195, 231,231 ,231 ,295 ZOG: DC ,85,D4,%5,DD,85,D0D9 ,A5,D0,18,65,D64,85,D 

35 DATAG,0,16,55,124,76,16,0 <P18> A,AS x86> 
36 DATA60,124,217,157,259,199, 255,170 Or 65 DATAD1,69,00,85,DE,AS,DA,58,ES5,D7,85, 
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DA,AS,DB,E7,00,85,DR,A0,00,B1,DA,C9,44 
68 DATADO,07,A9,00,85,D06,85,D9,60,A5,D4, 
69 ,00,D0,08,45,D9,C9,00,D0,02,60 

72 DATAEA,AG,D4,ED,00,3A,E8,18,45,D6,9D, 
00,3A,85,D0,CA,ED,00,2B,67,00,68,9D,00 
75 DATASB,85,D1,EA,EBD,00,3A,EA,38,E5,D9, 
9D ,00,34,85,DQ,EA,ED,00,3B,E7,00,EA,9D 
78 DATA00,3B,85,D1,40,00,C0A,08,C04,03,DQ, 
FA,BD,00,3A,85,D2,BD,00,3B,85,D3,A0,00,E 
8,C68,C4 

80 DATAO4,DO,FA,BD,00,34,85,D7,BD,00,3B, 
85,D8,E8,84,D4,A0,00,49,20,91,D2,EA,EA,A 
9,42, 

83 DATAD7,B1,DO,8D,FF,39,A9,41,71,D0,45, 
D0,28,E9,00,85,DA,AS,D1,E9,04 

86 DATABS,DB,A9,5D,91,DA,AS,D7,38,E9,00, 
85,DA,AS,D8,E9,04,85,D0B,A9,35,91,DA,60,T 
5 

107 FOKE63286 „PEEK (65286) OR16:5Y5819 

198 REMx#RRRHRR% BILDSCHIRMAUFBÄAU #ererH 
199 A=0:HS5=600: HS$="TIM{SPACEFSCHLUETER" 
:PRINT"{LIG.BLUE CLEARY" 

200 FORI=1T020: POEESQ97+1,67: POKE3093-1, 
.G7:NEXT 

215 FORI=1T0?3: POKESOS2+40#1,67: FOKE3O71 
+40*1,67: FOKE2047+4081 46: FORE200B+40#1, 
Ab: NEXT 

‚217 FORI=4032T04072: POKEI „67: FOKEI-1024, 
46:NEXT 

220 FORI=3352103391:POKEI ,6&7: POKEI-1024, 
4&: NEXT 

'225 CHAR1,2,2,"{SPACEZ YELLOW3DISPACEITT 
SPACE+ALSPACEIMISPACES DGREY SPACE>LIGHT 
CSPACEZ YELLOWFLIVES"+STR$ (LI SCHAR1,26,3 


s"£YELLOWFSCOREISPACES}" 








225 CHARI ,2,4,"{YELLOHY CC) TSPACEIBY{SPAC 


EITiE SPACEISOFTLSPACE2 +ENERGY{SPACEIFHIGH 
ISPAGEY"+5TR# (HS} 
240 CHAR1,268,5, "{YELLOWYBONUS {SPACE} AOOO 
rn 





245 CHAR1,&,6 ,"IYELLOWHFLFISSISPACEIS DOHN 


LEFTT>" 2 1I=0: POKESSBI,,67 
250 CHAR1,16+1,1,"{LIG.BLUEY—{BOHN LEFT} 








—tDOUN LEFTY-IDOHN LEFTI—-IDODHN LEFTI-DO 














HN LEFT}-IDOHN LEFTY—"s IFI< >STHENI=8:GOT 
0259 

255 RESTORE24:FORI=1T08: READRE: POKE15903 
+I,RE:NEXT 

259 REM##X### FENSTER FESTLEGEN 
* 

Z&0 PRINT"IHOMEZ DOHNS RIGHTY"SCHRS (DT): 
"TPENIDOHNLSY"TAR (38) CHRS (ZI, "B" 

265 REM LARBYRINTHE LESEN UND REINSCOLLEN 
267 RESTORE270+LB#15 
2&8 READFA:FORI=1T015: 
COLOR1 ,FAOR1,F: 
EHR$ (27), "W" 
267 NEXT 

270 DATAT  "ISPACEISI" 

271 DATA" ISPACES PURPLEYP{SPACEFRISPACEI 
EISPACEISTSPACEIS{SPACEIIF{ISPACEIT{SPACE 
IRISPALCEIE" 

272 DATA"® 

273 DATA”"» 

274 DATa"" 

275 DATA" CSPACESI— ISPACEZF—-ISPACE2L? — 
SPACE}--ISPACE}I-—" 

276 DATA" ISPACESI-TSPACE? —-TBPACEY-TSPACE 
3-TSPACEI-—TSPAGEI-—” 

277 DATA" ISPACESI-TSPACEI—-ISPACEY-TSPACE 
I—{SPACEI—ISPACE2ZI—ISPACEI—" 

278 DATA"XLEFT PURPLEY ILL ITSPACEZ LIG 
„BUEF——TSPACEY-TSPACEI -TSPACEI — {SPACE 


KEHRRRR 





READAS:F=SABS(I-8): 
sFRINT"IHONE SPACESY"AF, 
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<21> 
21055 


ZBOF> 


»181> 
<244> 
x775 
107: 
Dr=> 
<231> 


77 > 


A 
fen 
a 
bl 
Er 


Ar 
a) 
nr 
Kr 


Fu} 
da 
{n 
DM 
ur 


s231> 
x106> 
2243 
225} 


s125> 
<1167 


“167 
*144> 
<156} 


<173> 
<62> 
<a3> 
s64> 
23T: 
1725 


Sa3P> 
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SALES FHRTEE, BEZER 
279 DATA" LEFT PURPLEF TTSPACESF? | TSPACEIYF 
31{SPALES> |” 

280 DATA"TLEFT DOREYI#TSPACET BLUEIF——{ 
SPACEI—-TSPACEF-TSPACEINSPACEZI—-TEPACE — 
—{SPACET DGREY}#" 
281 DATA"ISPACE?> 
SPACEZI—-TZPACEF—" 

282 DATA"{LEFET PURPLEISCOREISPACEZ LIG.6 
REENY—-TSPACESI—-ISPACEI—-TSPÄTEI SPACE FT 
SPACEI—-{FSPACEI—-IZPACEZ PÜRPLEYHIGH" 

2835 DATA"ISPACET ISPACE} SPACE) — 








XSPACEF——TSPACEI— 




















{iS 
2984 DATA” 
285 DATA13,"{SPACEZ2 LIG.GREENFSISPACE" 
20& DATA" —-LSPACE2? -ISPACEI—L SPACE 

LSPACEFTAISPAGEI TIPACEI-" 

287 DATA"-ISPACEZITISPACEITTEPACE: 
— LSPACEN-TEPÄCEF-SPACEI—" 
288 DATA" -ISPACEZITISPACEISTISPACEI 
0101 TI BPAGEITISPACEF TISPALE IT" 
289 DATA"-ISPACERIT-IEPACEI-ISPÄAGET YELLO 
Hr <NGREY?I {YEL£LOHF | IMGREY 
ACEI-ISPACEI—" 
290 DATA"-ISPACEEI 
SPACE2>—— SPACE?) 
SPACEF-" 
za ZIL DATA"—-LCSPACE2I-ISPACEFF-ISPACE2} x 
SPATCERFTISPACETITISPACES"" 
292 DATA"-{SPACE2} KSPACEZY-TSPACE2 
F ISPACEZITSSPACE2Y SPACE" 
293 DATA"-{SPACETI-TSPACE2I-ISPACE2> 
SPACEZY—ISPACE2Y-ISPACEEFT-" 
294 DATA" ISPACE2Y-ISPACEZITI 
IT ISPACELFTISPACELFTIE 
295 DATAVISPACESFTISPACERFTITSPACERITTERPA 
CEZ> {EPAGEZPTEPACEZITTZSPACE FT ITEPACHEHF 


zu 
F 






























































—IBPACE} 
SPACE} 


SPACE! x 
KSPACEFTT 




















T 


SPACE2 














29& DATA" ISPACEITTSPACE2F SPACE 2IT 
SPACEZ> ISPACERITIZSPAGEZFTTEPAÄCEFTTEPA 
CE} r 





297 DATA" ISPACEFIFTTSPACEITISPACE2ZITISPAÄAE 
ERITISPÄACEZT ISPACESITISPACEZITIEPACE} 
—ISPALEI-ISPACESF" 

298 DATA” tSPACE?T LSPAGEr  TSPACER ER 
LEZITISPACEZ iS 

3-{SPACEI-TSPACE2I-" 

299 DATA" LSPACEI-ISPACET {SPACEITISPACE2 
ITISPACEZYTISPACEZ YELLOWYTIHGREY SPACEZ 
ITLSPACERFTISPACEITISPAGEIT{ZPACE 23" 
300 DATALIO,"ISPACEZSI" 























301 DATANTISPACE}I ISPACET} 
ISPACERF" 
302 DATA"-ISPAGEITTSPACEIFTTSPACELFITTSER 
ACETI" 
FZO2 DATA"-TYELLOAF I ORANGE IEPACEZI-TSER 
ACEISITISPACEFTISPACEITISPACEIT TSPACE: —iZ 
" PAGES TISPACEZFTTSPACE ISPACEIT" 


704 DATA"-ISPACEF-TSPACE2I-TEPACEH-TSPAC 
EI-LSPACE?-TSPACEI-LSPACEI—{SPACEZI-ISPA 
CEI-—-ISPACESY—" 

305 DATA"TISPACEITISPACEZITISPATEHTISPAC 
EITiSPACEFTTSPACEN SPACE ZI TIEPACEFT{SPA 
CEI-—ISPACE —" 

306 DATA"—-TSPACEAT—-ISPACEI—L 














P 


Aa 


> 


SPATCEIITISR 























CEITSPACEITERACESTISPAGEFTISPAGELI SR, 
 ACESI-" 

307 DATA" —ISPACEIT-ISPACES} WBPACEITT 

SPACEI—ZPACEF {SPACE} TTBPACES} {SPAC 


Er} it 
308 DATA"-ISPACEI-TSPACESI-ISPACETF-TEPA 
CEI-ISPACEI-ISPACEI-TEPACEZFTTERACEEI-" 











GSompute mib 


SPACETI-ISP 


x201> 


x98> 


z19> 


{Z28> 


<149> 


“1978: 


Z131> 


21703 
236> 


07% 


59: 


1975 


114: 


programme 


509 DATA"-{SPACEI-ISPACES} TSPACE} 

—ISPACE SHIFTSPACE SPACEI-{SPACE2Y 

—u 

310 DATA"-{SPACESI-TSPACE} {SPACE SHI 

ETSPACE SPACE YELLOH:! TDRANGEF-TSPACEY-T 

SPACEF-ISPACEZITTZPACE SHIFTSPACE ZPACES 

Jon 

311 DATA”-{SPACEITISPACE2F-{SPACE2} 

RACE} SPACE} LEPACET-TEPACE2F- SPACE 

> TSPACEI—-" 

312 DATA®TISPACEITISPACERFTTEPACEE 143 

PACE} ISPACEIT- TSPACEI-TSPÄACE2I- ISPACE 

B SPACE" 

313 DATA"-ISPACEFSI—-TSPACE2 SHIFTSPACEZ 3 

PAGESI-TSPACES YELEONS]) TORANGEF-" 

214 DATA men nt! 

315 DATA7,"ISPACE363" 

3i& DATA"-TBPAGEITISPACEITTTSPACETITTEPA 

CEIS3I—" 

317 DATATISPACEIITTSPACEIITSPACELITTSP 

ACES} ISPACE2ZITTSPACERI-" 

318 DATA"-ISPACETYTTSPACELIF-TSPACESIT" 

319 DATA" -{SPACEII—TSPAGEZ?-{SPACEF-ISPA 

CEZITISPAGET YELLORII| BLUE SPACEYTISPACE 

ZITTSPACEI——" 

320 DATA"-ISPAGE}-L 

ACESIT-" 

321 DATA"-ISPACEFITISPACE3FTIEPÄCE SI 

SSPACEZITNEPAGERI" 

322 DATA"TISPAGEZFTISPACEITISPACEZITITSPA 

GEFITISPAGEL237" 

323 DATA"YTISPACETITTSPACESFTTSPACE2} 

ACELOFT-ISPACEI" 

324 DATAM—LSPACEITISPACEITISPACESFTSPAC 

ETIISPACESITISPACE FIT" 

325 DATA"-ISPACE YELLORYITBLUE SPACEI—— 
TSPACESISPACE> {YELLOHYTKB 

LUE SPAGEZI-ISPACEIT" 

326 DATAPTTISPACESITTSPACETIT-TSPACEIOF-" 

327 DATAPISPACESITTSPACESITTSPACEZITSPR 

ACESFTISPACEII" 

328: DATA 

329 DATA" ASPAGES? iSPATETI— 


330 DATASB, 
331. DATA IT 
BES 3 = KW > Ve m GT ge ee 11 3 
IFTSPACEY—-" 

333 DATA'-TYELLOWF| SSPAGEZSI—TSPAGERF" 
334 DATA"-{ISPACEZ {SPACE} 
SPACE, SHIFTSPACEF-{SHIFTSPACET—-" 
335 DATA"-ISPACEI-ISPACER 1 I —TSPAGEI-ISH 
IETSPACEIT" 

336 DATA"TISPACEITISPACESI—-TSPACET SHIFT 
SPACEZI-ISPACE SHIFTSPACEYT-ISHIFTSPATCEFIT 
ISPACEIT" 

337 DATA"T-ISHIFTSPACGEY-ISHIFTSPACE} 
ur iSPACE2ZIT{SHIFTSPACEN-{SHL 

















{Ss 









































SPACESI-TSPACEL43—LEP 

















iSE 











"XSPACEIO SHIFTSPACES SPACEI7T} 




















ETSPACEI-" 

338 DATA"TISPACEITIZPACEI{SPACEIS SHIFT 

SPACES SPACE SHIFTSPACEYN-ISPACEI-TEPACE} 

—ı 

327 DATA"Y-ISPACEFTTSPACEIFFTISPACE2ZI-TSP 

ACEFTISHIFTSPACE IT" 

340 DATAY-ISHIFTSPACEI-ISPACE} 
KSPACE2I—-TSPACEY-TSHIETSPACEIT-" 

341 DATA"—ISPACEI-ISHIETSPACES SPACEIS?- 

SHIFTSPAGCEF—SHIFTSPÄAGEIT" 

342 DATA” ISPATLEZF 

{SPACE SHIETZSPACE2I-" 

343 DATA"ISPACE YELLOHYITSPACE2S YELLOH} 

I CYAN" 

















26 


Ei 
h3 
nr 
[7 
Ir 


<3> 
x<168> 
zAal> 
927 
95: 
CRLEF 


<85> 
= 102> 


z191> 


“2185 
<105> 


<14> 
“927 


x48> 


x1723: 
s94> 
s1A2> 


“224 > 
“105> 
“38> 
s231> 
<208> 


<197> 


Compute mi 


344 
345 


para" 
DATAS,"ISPACEIS}" 

346 DATA"—ISPACEZI-TSPACEZZI——" 
347 DATAV-TSPACE2ZI-{SPACES 
23—ISPACEF-ISPACE3I—" 

348 DATA"-TYELLONY] TPURPLE SPACEI-ISPACE 
AII—TSPACETI-TSPACEI—ISPACEN—" 

349 DATA"—ISPACE2I-ISPACEZ? 
—-SPACEI-ISPACEI 





TSPACE 








SPACE 
TSPACEITISPACEI-TE 











PAGE" 
350 DATA"—ISPACE2I-TSPACEISI-TSPACEZI-ISP 
ATEI——TISPACEY-TSPACEI-{SPACEFFTXEPAGE> 








—SPACEI-ISPACEI-" 

351 DATA"—ISPACE2ZI-TSPACELII-TSPACEI-ISP 
ACEII—SPACEF TSPACEI-TSPACEI—" 
352 DATA”-ISPACEZI-TSPACEZI 
CEIF—-ISPACEI-TSPACEI—" 

353 DATA"—ISPACE2F-ISPACETI-TSPACESI—— 
XSPACEI-TSPACEI" 

354 DATA"—CSPACEZI-TSPACESI-TSPACEI-TSPA 
CEI-{SPACEL3I-TSPACEI—" 

355 DATA"—ISPACE2I-TSPAGEI-TSPACEI—SP 
ACEI-ISPACEI-ISPACEZI-{SPACESI—SPACEI— 
—{SPACEI-TSPACEI—" 

35& DATA"-ISPACE YELLOWF| TPURPLE SPACE2} 
—ISPACEI——TSPACEI-TSPÄACEI-ISPACE> —ISPA 
CESI—tYELLONF| {PURPLEI—SPAGEI {SPACE} 


it 














{SPA 




















337 DATA"————ISPACEITTTISPACEITTEPACE} 
IBPAGEFTTEPACESITISPACE)I TISRACEI-ESPR 
ACEI—-" 


3598 DATA"-ISPATEIOFTISPACEII—ISPACESI-TS 
PACERI—" 





357 DATA {SPAC 
E} —dh 

360 DATA2,VISPACEISEH" 

361 DATA”-ISPACET} ISPAZE, 





2 
I62 SPACE23—-IYELLON 
I {HHITE SPACE23-{SPACE2>——ISPACESI—" 

363 DATA" (SPACE2LT—SPACESISPACEI-TE 
PACEI-ISPACEI-TSPACEI— {SPAGES> 
































364° DATA"ISPACES} TSRACEIITTTSPACEI-TS, 
PACESY-TSPAGEI—-ISPACES} 

365 DATA'TISPACES> TSPACEI——TSPACEFIT- 
iSPACEIT——" 

366 DATA'TSPACEI-TEPACERI—TEPACE2IT—TE 
PACELI—ISPACESIT" 

367 DATA'ISPACESITTSPACEISITTSPACEZI TE 


PACEZF—ISPACE?I{SPACEII—TSPACEII-" 
368 DATA’LSPACEZI-TEPACEISI—TSPACEZI— TS 
PACE33—{ZPALESI-—ISPACEZI—-" 
369 DATA" ISPACELI-LSPACEIF— 
PACEI-—XEPACEIF—ISPACEI?-" 
370 DATA" SPACE -SPACEIZ?-SPACEIL {SPA 
CE3I-TSPACEI-TSPACEZI— SPACE SPACE} 
un 

371 DATA" ISPACEZI-ISPACLEIF-ISPACEIT—ISP 
ACETI-ASPACEIF-ISPACEII-" 

372 DATA"-{SPACE2I-{SPACEZI-TSPACEII—L 
PACESY—TEPACEIF-TZPACEZI—" 

373 DATA" {SPACEF-ISPACEZF-TSPACEII—TSPAC 
EI2—LSPACESI—TEPACEIF-ISPACEII-ISPACER 
3 —# 

374 DATA" ISPACE2I-{SPACEZI-TYELLOMF | CHHL 
TE SPACE2I3—-ISPACEZSF—ISPACEI—ESPACEII—L 
SPACE YELLOW?! CHHITE SPACEF—-TBPACERN—" 
375 DAaTa2,"", nu un un nu 

376 DATA" #8 "N RIGHTIOFAGAINTSPACE} (Y/N 
y” am y 4, 18 = 

277 DATA" LRIGHT4} YOU 'VEISPACE?MANAGED{SP 
ACE}THISTSPACEIGAMEN „nt mn, 
RATIOLATIONSTT nu nn 





SSPACEIF—E 





na 





vERIGHTTICONG 


P: 


<118> | 


“5> 


<124> 


“697? 


1457 


“3> 


2403 
%37> 
+78> 


937 


2198> 


23975 


xı216> 
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450 IFLB>450T0O1000 ı27> 720 K=K+1:A=A+209: SOUND? ,643, 10: IFK=EETHE 
451 IFLB< 06010499 <78> NFORI=1T08: SOUND? ,643+20#1,5: NEXT 20775 
452 REM wur HIGHSCORE + NAME Xena ©1777 722 CHAR1,31,3,"TYELLOWF"+STRS (A): IFK=EK 
453 1FA>HSTHENHS=AS PRINT" {HOME DOWNI12 RI THENPOKE3389 „70: G0T0725 “2724 > 
GHTS5SY YOURISPACE?NAMEISPACE} (15) "5 : FOKE2S 723 X=INT(RND(1)%#38) +12 Y=408 (INT (RND (1) * 
97,0: INPUTHS$ <103> 15) +8) 67: 
457 FPRINT"{HOHE DOWNG RIGHT4F"ATAB(SIIHS 2155 724 IFPEEK (3072+Y+X) =32THENFOKE3SO72Z+X+Y, 
458 PRINT"{DOHNS SPACESYHIGHTSPACEYBYISP 71: POKEZO4B+X+Y,119s ELSE7ZSE L222> 
ACEIN"LEFTFCHS$, 16) s YISPACESF" x70> 725 FOKET,FEEK(F) +1: POKE4 „FEEK {4) +1: PORE 
460 IFJOY(H)<S12BGOTO460 1583 14847 , 32: GOTOSO0 x1599> 
470 LB=1:L=3:A=0: 6070225 9743 7309 IFP=7OTHENRESTORE7SS:LB=LB+LSFORI=1T 
471 REM#x#a#R%%# INITIALISIERUNG Ke8teH* <98> 05: READT „LA: SDUND1,T,LA:NEXT: A=A+B: GOTDZ 
490 K=0: EK=4+3%# (LB+1) »B=1000: FOKE3 ,5: POK 00 x183> 
E4,4: Z=100:W=14847: CHAR1 „31,5, ""=PRINTA <215> 731 IFLBSSTHEN?SS z110> 
497 POKEZ08, 166: POKE209, 15: POKE209 , 160: F 733 DATAS60, 20,560,20,600,20,600,20,700, 
UOKE2109,15:P0KE212,5:FOKE221 ,40: POKEZ20,0 <Z22S> 40 x251> 
438 FORI=1T04: POKE14847+1,185+1: NEXT: FOR 735 IFF<>7260T0740 BIT} 
I=-15104T015110:POKET ,15:NEXT:VOLB:E=1024 5487 756 SDUNDZ, 700 ,8: IFZ{ZTHENRESTORE24: V=15 
299 REM#sHHRRHRR8R% HAUPTSCHLEIFE were S10S> F03:FORI=VTOV+7:READRE: POKEI „RE: NEXT Z91> 
S00 SYS884: IFPEEK (2034) < >OTHENSOUND2, 100 737 2=-100:6=33593 £97% 
‚2 “246 749 GOTOS0CO sal> 
520 CHAR1,31,5," "3 PRINT" {YELLORS"BÄLEFT 00 FORI=1T09: SDUNDS,410-1[*810,5: NEXT: [= 

SPACE}" = B=B-1: IFB=-1650T0B00 x135> -1:CHAR1,31,3," Er ame rn ie 

523 IFZSITHENFORI=1TO11:NEXT: GOTOS3O £I6> ENLB=0 x180> 
525 Z=Z-1:CHAR1,18,6,""sPRINTZ’XLEFT SPA g1a GOTO20OO x104> 





1000 GETAS: IFAS="Y"GOTOLFI:ELSEIFAFCH"N" 
60T01000 <21lr 
4010 PRINTTAR (240) TAB (234) "SEETSPACE}VOL 
{SPACEFAGAINTSPACEFNEXT{SPACEITIME , {SPAC 
E3BYE „BYE! {HOHEZI" 


CE?" IFZ<1THENFORI=1T08: FOKE1SIOSFI,O:NE 

xT <94> 

530 F=FEEK (W} : IFP=32G0T0300 <öl> 

700 IFF=560RF=47THENBOO 174> 
710 IFPS>71G0T0730 u 5 





Beherrschen Sie das Skateboardfahren oder wollen Sie es erlernen? Wenn ja, dann erwartet 
Sie hier das richtige Programm. Schwingen Sie sich auf Ihr „Fahrzeug“ und beweisen Sie Ihre 
Balancekünste. 





Sp und Unterhaltung 
auf dem C-16-Computer 





























Deraleiglif 





Die Spielaufgabe besteht darin, mit Ihrem 
Skateboard den zahlreichen Hindernis- 
sen, die Ihnen plötzlich im Weg stehen, 
auszuweichen. Das hört sich anfangs we- 
sentlich einfacher an, als es sich dann in 
der Praxis verwirklichen läßt. Denn das 
schnell ablaufende Spielgeschehen er- 
laubt dem Skateboardfahrer nur äußerst 
kurze Reaktionszeiten und erfordert zu- 
dem eine präzise Steuerung. 


Hinweise zum Programm: 
Dieses Programm ist vollständig in Ma- 
schinensprache erstellt worden und wird 
im Monitor mit L + Return geladen. 


noch nicht beendet ist, im Monitor mit S 
“SKATEBOARDING“,1,1000,3300 + Re- 
turn gesaved werden. 

Nachdem des Programm komplett einge- 
geben ist, muß man die Überprüfung per 
Prüfsumme starten. Dazu geht man mit X 
+ Return aus dem Monitor und tippt 
SYS7426 ein. Es.erscheinen nun, voraus- 
gesetzt man hat fehlerfrei eingegeben, 3 
Zeichen am unteren Bildschirmrand. Er- 
scheint kein Zeichen, so ist der Abschnitt 
$1000 - $1D00, erscheint ein Zeichen, so 
ist der Abschnitt $2000 - $2800 und er- 
scheinen zweiZeichen, so istder Abschnitt 
$2800 - $3300 falsch abgetippt worden. 


Das Spiel kann, auch wenn das Abtippen | Falls drei Zeichen am Bildschirmrand er- 
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SKATEBOARDING: Ein C-16-Programm, das. Sie für die 
„harte“ Eintipparbeit entschädigen wird. 


Compute mib 


scheinen, kann man das Spiel absaven 
und mitSYS11179 starten, zuvor muß man 
jedoch aus dem Bildschirm herausgehen. 
Achtung: Der Abschnitt $D00 - $1DB7 
muß richtig abgetippt werden, sonst funk- 
tioniert das Prüfsummenverfahren nicht. 


Derjenige, der keinen Joystick besitzt, 
kann das Spiel auch mit der Tastatur spie- 
ten (W runter, 3 rauf, 4 rechts, A links). 
Wer einmal die ganze Landschaft sehen 
möchte und, obwohl es es schon x-mal 
gespielt hat, einfach nicht durchkommt, 
kann mit POKE9268,x bis zu 255 Leben 
besitzen (für x muß man eine zalı von 
1 - 255 eingeben). 





programme 
Listing: SKATEBOARDING ee ge ze ze in 


>13EB 09 12 00 12 O0 12 00 12 
>13F9 SC 12 00 12 00 12 60 15 





RREAE "13F8 SF 15 5F 15 5F 15 46 15 
PC SR ACC XR YR SP »11EO 00 12 00 12 0ü 12 00 12 | 31400 44 15 46 14 00 14 00 14 
0004 Fl EC on 00 F& >11E8 00 12 00 12 00 14 OD 14 | 1408 00 14 00 12 On 12 00 1? 


>11FO 00 15 00 1& 00 13 00 13 | 1310 00 11 00 11 00 11 00 11 

10006 00 00 00 17 00 17 öß 17| »Li1FB 00 13 00 13 OF 13 Of 1% 1418 00 OE 00 DE 00 0E OA CE 
>1008 00 17 00 17 00 17 00 15! >1200 ÖF 13 00 13 00 13 00 10 | 1420 00 OE 00 0OE 00 14 SEE 14 
1010 00 15 00 15 00 15 00 15| >1208 00 10 00 10 00 OF 00 ÖF | 1428 SE 14 45 14 SE 12 00 12 
41018 11 15 11 15 00 15 00 16 >1210 00 OF O0 OF O0 OF 00 OF | »1430 00 12 00 15 46 15 46 12 
»1070 00 16 O0 16 00 16 O0 1A! »1?218 00 OE DO QE 00 OE 00 OE | 1438 00 12 00 12 00 14 47 1& 
»1078 00 15 00 15 00 15 00 15| 1220 00 OE 58 OE FF OE ZF OE | 1440 47 16 47 16 47 1& 47 16 
1030 00 15 00 15 00 13 00 13| >»1278 58 OE 58 OE OG OE 00 OE | 1448 00 16 00 1& 00 16 O0 14 
>1033 an 13 00 15 00 135 SD 13| >1230 00 OE 00 QE 00 OE DA ÖE | >1450 12 16 12 16 00 16 00 16 
»1040 SD 13 00 13 00 13 00 17| >1238 OA OE OA OE OA OE OA GE | >1458 00 15 00 15 00 15 00 15 
>1048 48 17 48 17 48 17 00 17| >17240 00 OE 00 GE 00 ÖE 00 OE | 14850 SF 15 SF 15 5F 15 5F 15 
1050 00 17 00 17 00 17 00 17| 1248 3ZF OE 58 0OE SF OE 58 Q0E | 1468 00 15 00 15 00 15 36 15 
1058 On 15 00 15 00 15 00 15| >1250 00 OE 00 OE 00 17 48 17 | 1470 46 15 45 15 00 15 00 15 
10640 on 15 11 15 11 15 00 15| >1258 48 17 61 17 61 17 48 17 | >1478 00 15 00 15 SF 15 5F 15 
1068 O0 15 00 13 00 13 00 13| >1240 &1 17 48 17 61 17 48 17 | »1480 SF 15 SF 15 00 15 00 15 
>1070 00 13 00 12 00 13 00 i?7| >1268 48 17 61 17 61 17 48 17 | 1489 00 14 00 14 00 14 10 14 
1078 00 1? 00 12 00 12 00 10| 51270 00 17 00 17 00 15 00 15 | 1490 00 14 00 14 00 12 00 12 
1080 00 10 00 10 00 10 41 10 »1278, 00 15 00 13 00 13 00 13 | 1499 00 1? 00 17 SC 1? 00 12 
»1088 00 10 00 1a 00 OF 00 OF| >1280 O0 11 00 11 00 11 00 OF | »14A0 00 12 00 10 00 10 00 10 
1090 00 OF oo of no OF 00 OF! +1288 00 OF 00 OF O0 OF 00 OF | >ıaAB O0 10 00 10 00 QE 00 OE 
»1098 O0 SE 00 15 AU 16 40 14| >»1270 OR OF OR OF OB OF OR OF | >14Bü 00 GE 00 16 47 1& 47 1& 
*10A0O 00 14 OD 1& 00 i6& OO 15| 12978 OB OF OB OF 00 OF 00 17 | »14BB 47 14 SE 14 SE 14 SE 12 
»1088 00 15 00 15 00 15 00 15| HzAO 61 17 61 17 61 15 46 15 | >»14C0 43 12 00 12 00 12 00 1i 
»10E0 00 15 00 15 SF 15 SF 15| $i2AB 00 15 00 14 45 14 00 14 | siaca 00 11 00 11 OD 11 00 il 
»10B9 DO 15 00 15 00 15 00 13} >$iTRO 00 13 5D 13 O0 13 00 12 | »14DO OD 11 00 11 oo 11 oo 1l 
>»10C0 00 13 00 17 00 13 00 12! »17RS O0 12 00 12 00 12 00 14 | apa Hu OF O0 GF Od OF 00 ÖE 
>1OC8 on 12 00 17 2a 12 00 16 | >»12C0 00 14 00 14 00 14 00 14 | »14EO QO OE 00 QE 00 OE 00. DE 
>10D0 47 15 47 1& 00 16 OO 1464| »12C8.00 14 SE 14 SE 14 00 14 | ri14EB OA 0OE 00 OE 00 DE OA GE 
»10028 o0 16 O0 15 00 15 00 15| >17Da% 00 14 00 14 00 172 00 12| »14FO O0 OE QO GE 00 ÖE OA OE 
">10E0 00 15 11 15 00 15 00 15| »17D8 00 12 00 12 GO 11 00 11 | »14FB 00 OE 00 OE 00 DE 00 DE 
SI0EB OO 135 00 iX 00 13 00 1242| »12EO 00 14 00 OE 90 ÖE 00 SE | »1500 IF OE ZF OE 00 OE 58 ÖE 
»10F0 00 14 O0 14 00 14 45 14 | >»17EB 00 OE 00 14 SE 14 SE 124 »150B 58 15 45 15 O0 15 0 15 
>10F8 45 14 00 14 co 14 00 14 | >17FO SE 14 5E 14 SE QE 00 GE | »15Jj0 50 15 00 15 11 195 00 15 
»1100 00 14 10 14 00 14 00 1424| »i?Fa CO 0OE-00 ODE 00 OE 00 16 | 1518 O0 17 49 17 00 17 &1 17 
1108 00 14 00 12 00 12 00 12| >1300 47 1& 47 16 47 1& 47 16 | 1520 00 17 00 17 00 17 13 17 
1110 00 12 00 12 00 1? 00 10| 1308 47 i& 47 10 00 10 00 10 | 31528 18 17 135 17 13 17 13 17 
»1118 00 10 00 10 00 10 OC 10| »1310 0C 17 48 17 &1 17 48 17 s14AB 00 10 00 10 00 QE 06 DE 
>1120 00 10 00 10 00 OF O0 OF| »1318 81 1% 00 13 00 13 00 13 >14B0 00 ODE 00 16 47 16 47 16 
»1128 00 OF 00 OF 006 OF 5# OF| +1220 00 17 SD 13 00 13 00 13 | „14a 47 14 SE 14 SE 14 SE 12 
>1130 59 OF 00 OF OO OF 00 17| >1328 00 13 OF 13 00 13 00 13| „1400 43 12 00 12 00 12 00 11 
>1138 48 17 49 17 48 17 48 17| 31330 00 13 34 13 00 13 00 13 | yıacg 00 11 00 11 Op ıı oo 11 
»1140 48 17 48 17 00 17 00 17}! 1338 00 1Z 00 14 &0 1& 37 1& | »s14D0 OD 11 00 11 00 11 O0 11 
»1148 00 17 00 17 00 16 O0 16| »1340 47 1& 47 1& 47 1& 40 14 | sıapa 00 OF 00 OF 00 OF 00 0E 
»1150 O0 14 00 1& 60 16 60 16 | >»ı1348 00 14 00 14 00 11 00 11 | »ı14Eo 00 OE OO OE OD OE 00 0E 
>1158 40 16 00 154 O0 14 00 15| >1350 00 11 00 OE 00 OE 0QO ÖE| »14E8 OA OE O0 ÖE 00 OE OA OE 
„1160 00 15 00 15 00 15 00 15| >1358 00 OE 00 OE 00 17 48 17 | »14F0 GO OE 00 GE 00 ÖE OR GE 
»1168 11 15 11 15 i1 15 11 15| »1560 #41 17 48 17 61 17 48 17) »ı4FB 00 OE OD ODE 00 GE DO OE 
>1170 00 15 00 15 00 14 00 14| »1X68 #1 17 48 17 &1 17 48 17 >1500 ZF OE FF OE 00 GE 58 OE 
1178 00 14 00 14 45 14 SE 14| 1370 61 17 AB 17 61 17 48 17 | 1508 SB 15 46 15 00 15 00 15 
»1i180 45 14 00 14 00 14 00 13| +13278 00 17 00 17 00 17 00 17 | »ı510 00 15 00 15 11 15 00 15 
>1188 00 13 00 13 00 13 CO 13| >1380 00 15 00 15 00 15 11 15| >1518 00 17 48 17 00 17 61 17 
»1190 5D 13 00 135 00 13 00 13| >1388 11 15 14 15 14 15 11 15| 1520 00 17 00 17 00 17 13 17 
»1198 00 11 00 11 00 14 00 11| >1390 00 15 00 15 00 15 00 14 | 1528 13 17 12 17 13 17 13 17 
»11AO CO 11 00 10 00 10 00 10) >1398 00 14 00 14 00 14 10 14 | 1530 00 17 00 17 O0 1a 00 16 
»11AB 00 10 00 10 00 OF 00 OF| »13A0 10 14 10 14 10 14 10 14 | >1578 00 16 00 14 00 14 00 14 
>11RBO 00 OF 00 OF OB OF 00 OF| »13AB Do 14 00 14 00 14 On 14 | >1540 00 12 0012 00 12 00 10 
»11B8 00 OF 00 OE 00 OE 00 OGE| >10 00 13 00 13 00 13 5R 13} >1548, 00 10 00 10 00 OF 00 OF 
»11C0 00 OE 00 CE 00 17 48 17| si1zBE8 00 13 00 13 00 13 44 13| >1550 00 OF OB OF 00 OF 00 OF 
»11C8 48 17 48 17 48 17 48 17 | >ı3C0 44 153 44 15 44 13 44 13| >1558 OR OF O0 OF OR oF 90 OF 
»11DO 48 17 00 17 00 17 00 17| »1SCB 00 13 00 13 00 13 00 123| 1550 00 OF OB OF GO OF 00 OF 
s11D8 00 15 SF 15 00 15 00 15| »13D0 OF 13 OF 13 OF 13 OF 13| >1558 00 16 00 17 61 17 00 17 


28 Gompute la | Compute mit - Sonderheft - 2/86 


>1570 00 17 48 17 00 17 
1578 00 17 00 17 00 17 
1580 00 17 00 17 13 17 
>1588 00 17 00 17 13 17 
>1590 00 17 00 15 00 15 
>1598 i1 15 00 15 00 15 
>15AO SF 15 SF 15 SF 15 
>15AB 46 15 00 15 00 15 
>15BO 00 15 46 15 00 15 
>1S5B8 00 1& 00 16 00 1& 
>15C0 12 16 00 16 00 16 
>15C8 00 14 00 14 45 14 
>15D0 45 14 00 14 00 14 
31508 00 11 00 11 00 il 
>15E0 00 11 00 OF 00 OF 
»15E9 57 OF 57 OF 57 OF 
>1SFO 00 OF 00 OE 00 GE 
>15F8 00 OE 00 OE 00 17 
>1600 00 17 48 17 00 17 
>1&808 00 17 &1 17 00 17 
>1510 00 17 &1 17 00 17 
»16&18 00 17 00 17 13 17 
>1620 00 17 00 17 48 17 
>1628 00 17 00 16 00 1& 
1630 12 16 00 14 12 16 
1638 12 16 O0 1& 00 17 
>1640 61 17 00 17 48 17 
>1648 61 17 00 17 00 17 
>1650 13 17 13% 17 13 15 
»1658 00 15 00 14 00 14 
>1660 00 14 10 14 10 14 
>16658 10 14 10 14 00 14 
>1670 00 14 00 14 00 13 
>1678 00 13 5D 13 00 13 
>1680 00 13 SD 13 00 13 
>1688 00 12 00 12 00 12 
>1690 00 11 00 11 00 10 
»1&98 00 10 00 OF 00 OF 
>16A0O 00 OE 00 OE 00 OE 
>1&6A8 OA OE OA OE OA OE 
>16BO OA OE OA DE 00 OE 
>16E8 00 OE 58 DE 58 OE 
>16C0 5B OE 58 0E SB OE 
>1&C8 00 OE 00 17 48 17 
>16D0O 61 17 00 17 48 17 
>16DB &1 17 00 17 48 17 
>16E0 &1 17 00 17 48 17 
>16E8 00 17 00 17 00 1& 
>16F0 00 1& 00 i6 00 15 
>14FB 00 15 00 15 00 15 
>1700 00 04 13 10 09 05 
>1708 09 OE 17 05 09 13 
>1710 20 06 01 08 12 05 
>»1718 09 14 20 04 05 09 
>1720 OD 20 13 OB 01 14 
>1728 OF 01 12 04 20 04 
>1730 03 08 20 05 09 OE 
>1738 OC O1 OE 04 13 03 
>1740 064 14 20 2E 20 1& 
>1748 OC 05 20 OB 12 05 
>1750 15 12 05 0E 20 15 
>1758 20 OB 09 OE 04 05 
>1760 07 13 13 05 20 16 
>1768 13 15 03 08 05 OE 
>1770 09 03 08 20 1A 15 
>1778 05 12 i3 14 OF 05 
>1780 OE 20 2E 20 17 05 
>1788 OB 05 20 09 08 OE 
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>17970 
>17978 
»>17AO 
»17AB 
>17B0 
>17B8 
>17C0 
»17C8 
>17DO 
>17D8 
>17EO 
»17E8 
>17Fö 
>17F8 
>1B00 
>18908 
1810 
>1818 
>1820 
»1828 
>18I0 
>1858 
>1840 
>1948 
1950 
»1958 
>1BA0 
>1868 
>1870 
1878 
>1880 
»1888 
>18970 
>1898 
>18AO 
>1BAB 
>18B0 
1888 
>18C0 
>’19C8 
>18DO 
»18D8 
>1BE0O 
>18E8 
>19F0 
>18F8 
>19060 
>1708 
>1F10 
>1918 
>1720 
>1928 
>1930 
1938 
>1740 
1748 
>1950 
>1958 
>1F60 


'>1948 


»19770 
>1778 
>1980 
>19788 
>1990 
199789 
>17R0 
>197AB 


20 
20 
14 
05 
13 
05 
o1 
19 
OE 
2E 
15 


05 
20 
20 
20 
og 


FE 
E& 


EO 
9D 
Az 
EoO 
9D 
AZ 
EoO 
18 
97 
ED 
F7 


20 
20 
20 
20 
20 
20 
SD 
zo 
Sp 
z0 
20 
20 
20 
SD 
29 
209 
SD 


ae 
F 


SD 
20 
20 
20 
20 
SD 
20 
20 
SD 
20 
SD 
20 
20 
20 
20 
29 
20 
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»197R0 
»197R8 
>I19LCO 
>19C8 
>17DO 
>17D8 
F1FEO 
>19E8B 
>17F0 
»19F8 
-1AOO 
»iAO8 
>1A10 
>1A1B 


 >1A20 


F1A28 
F1ASO 
»1AS8 
>1A40 
»1A48 
>1A50 
»1AS8 
>1A69 
>1A6&B 
>1A70 
178 
>iABO 
»1A88 
>1A90 
»1AI8 
FIARO 
FiLAAB 
>1ABO 
1ABRS 
FIACO 
>1ACH 
>1ADO 
»irDE 
»1AEO 
>1AEB 
>1AFO 
>ıAFB 
F1ROO 
>1BO8 
>1B10 
>1B18 
>1B20 
>1B28 
>1B30 
>1B38 
>1B40 
»1B48 
>1BS0 
>1B58 
>1B&s0 
>1B68 
>1B70 
>1B78 
>1B80 
>1B89 
>1B90 
>1B98 
>1BAO 
>1BA8 
>1BBO,. 
>1BB8 
>1BCO 
>1BCB 


20 
SD 
SD 
20 
SD 
20 
SD 
SD 


20 
20 
209 
05 
=2E 


20 
20 
20 
20 
SD 
20 
20 
20 
20 
20 
206 
20 
20 
20 
SD 
20 
20 
20 
20 
20 
20 
20 
20 
20 
SD 
20 
20 
20 


SD 
SD 
SD 
SD 
S5D 
SD 
SD 
SD 
SD 
20 
5D 
SD 
SD 
SD 
SD 
SD 
SD 
SD 
SD 
sD 
SD 
SD 
SD 
5D 
SD 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
28 
209 
20 
20 
20 
20 
20 
20 
20 
29 
17 
02 
08 
or 
20 
20 
20 
20 
20 
20 
09 
2E 
08 
OF 


SD 
SD 
SD 
20 
20 
20 
z0 
20 
=D 
20 
SD 
SD 
20 
20 
20 
20 
29 
20 
20 
20 
sD 
20 
SD 
20 
20 
20 
29 
20 
20 
20 
z20 
20 
20 
20 
20 


SD 
SD 
SD 
20 
20 
SD 
SD 
SD 
20 
20 
SD 
SD 
SD 


20 
20 
20 
SB 
20 
2G 
20 
20 
SD 
20 
20 
20 
20 
SD 
20 
20 
20 
20 
SD 
20 
20 


SD 
SD 
20 
20 
20 
SD 
SD 
20 
20 
20 
SD 
SD 
20 
20 
20 
SD 
SD 
20 
20 
20 
SD 
SD 
20 
20 
20 
20 
20 
20 
zo 
20 
20 
20 
20 
20 
20 
o2 
20 
20 
20 
20 
zo 
20 
20 
20 
20 
14 
2E 
OD 
20 
20 
20 
20 
20 
20 
29 
20 
ZE 
OD 
20 
20 
20 
209 
20 
209 
20 
07 
2E 
12 


SD 
SD 
SD 
SD 
20 
209 
209 
SD 


programme 


>1BDO 
>ı1BD8 
»1BEO 
>iBEB 
>iBFO 
>1RF8 
>1C00 
>1C08 
>1C10 
>1C218 
>1C20 
>1C28 
>1C350 
>1C38 


>1C40 
>1C48 
>1C50 
>1C58 
-1C50 
>1C48 
>1C70 
1678 
>1C80 
>1C88 
>1690 
+1C98 
P1EAO 
>1ICAB 
>1CBO 
>iCBB 
>1CCO 
>1CCB 
>1CDO 
>iCDe 
 >I1CEO 
>1CEB 
>1CFO 
PICFB 
>1DO0O 
>1D0O8 
>1D10 
>1D18 
-1D20 
>1D28 
>1D30 
>1D38 
>1D40 
»1D48 
>1D50 
>1D58 
>1D&0 
>1D58 
>1D70 
+1D78 
>1D80 
>1D88 
>1D90 
>1D978 
>1DRO 
108 
" >1DBO 
?1DB8 
>1DLO 
>1DC8 
>1DDO 
>1DD8 
>1DEO 
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>IDER 
>1DFO 
F1DF8 
>1E0O 
»1E08 
F1E1O 
F1EIS 
>IEZO 
FIEZB 
FLIESO 
F1ESB 
FIE4O 
"1E48 
F1ESO 
>1ES5Q9 
>1E&O 
»1E48 
»1E70 
»1E78 
»1E8O 
F1ESB 
F1EFO 
1EF8 
FIEAO 
"i1EAR 
FIEBO 
>1EBB 
>IECH 
PIECB 
>1EDO 
>1ED8 
F1EEO 
>1EEB 
>1EFO 
>1EFB 


F1FO0 


>1F08 
>1F1O 
-1F18 
>1F20 
>1F28 
>1F30 
>1F38 
»1F40 
>1F48 
S1FSO 
>ı1F58 
>1F&0 
+1F68 
F1F70 
>1F78 
>1FBO 
>1F88 
>1F90 
>IF98 
>1FAO 
-1FAB 
>iFBO 
+1FBB 
-1FCO 
>1FC8 
>1FDO 
>1FDe 
"1FEO 
-1FE8 
-1FFO 
>1FFB 


EA 
EA 
EA 
EA 
ER 
ER 
EA 
eA 


EA 
EA 
EA 
EA 


EA 
EA 


ER 
EA 
ER 
ER 
ER 
EA 
ER 
EA 
ER 
EA 
EA 
eA 
EA 
EA 
EA 
EN 
EA 
EA 
EA 
EA 
EA 


EA 
EA 


EA 
EA 
EA 
EA 
EA 
ER 


EA 
EA 
EA 
EA 
ER 
ER 
EA 
EA 
EA 
EA 
ER 
EA 
ER 
en 


EA 
EA 
EA 


ER 
ER 
EA 
ER 
EA 
EA 
EA 
ER 
EA 


Computbe mi 


>2000 
>2008 
>2010 
>2018 
?>2020 
>2028 
>2030 
>2038 
>2040 
>2048 
>2050 
>2058 
>2050 
>2048 
>2070 
>2078 
>2080 
>2088 
>2090 
>2098 
>20A0O 
>20A8B 
>20RO 
>20B8 
>20C0 
>20C8 
>20D0 
>20D8 
>20E0 
>20E8 
>20OFO 
>20F8 
>2100 
>2108 
>2110 
>2118 
>2120 
»2128 
>2130 
>2138 
>2140 
>2148 
>2150 
>2158 
>21&0 
>2168 
>2170 
>2178 
>2180 
»2188 
>2190 
>2198 
>21AO 
>21A8 
>21BO 
>21B8 
>21C0 
>21C8 
>21D0 
>21D8 
>21EO 
>21E8B 
>21FO 
>21F8 


2200" 


>2208 


C3 
97 
OF 


3B 
or 
c2 


sc 
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T.S. BEICHYICHERTEHUETERTEISTEITEN mbH 


AIR COMBAT EMULATOR 35,98 


BASEBALL 25,90 


a 


SLIPERY SID 
POGO PETE 
COMMANDO 
STAR GOMMANDER 


BERKS 1, 2, 3, 

C-16 Classics _ 

(4 Programme) 

Airwolf 

Lawn Tennis 

Joysticks, Adapter, u.v.a. » 


KUNG FU KID 19,90 


Versand per Nachnahme (zuzüglich 5,90) oder Vorkasse mit Scheck (zuzüglich 2,50). Infar- 
mationen können angefordert werden. Händeranfragen erwünscht. 





software-service 


Alle Programme dieser 
‚Ausgabe können direkt 
"beim: Verlag bestellt 


werden. Benutzen ‚Sie 
hierzu die beiliegende | 
‚Best a ‚oder‘ Er 


Auch auf dieser ‚Steh-Party gibt. es.nur ein Gesprächsthema: 
„Die tollen C- 16-Programme dieser Ausgabe! ri 


| Programm-Paket Kassette FIOgram -Paket Diskette: 





| Bestell-Nr. CSOK 2 Bl Bestell-Nr.: CSOD 2 
Preis: 49,50 DM 5 Preis: 59,90 DM 
Beide Programm-Pakete EEn.EEE enthalten 





alle Programme dieser € . Ausgabe. 


Bestellungen werden innerhalb nur 1 Woche nach Eingang in unserer 
Software-Service-Abteilung bearbeitet. 








Wichtig . . » Weitere 6-16/116 Brseelhikeriie aus 


Die beigefügte Abrufkarte für | dem Tronic-Verlag: 
das „Kombi-Abo Compute mit“ 





gilt nicht für diese Sonderaus- Programm Kassette Diskette Best.-Nr. 
gabe. Mit dieser Karte abonnie- | tantasy-Country/Harror Castle 18,--IM - 023 
ren Sie die monatlich erschei- | Moon fighter/Goldrausch 18,--DM 23--DM 033 
nende Zeitschrift Compute Zeichendesigner 14,-- DM - vo 8/85 
mit“. Für die Son daraus ga be OLD-Routine/Merge-Routine/ . # 

z Change Type 14,-- DM - v0 1/86 
kann kein Abonnement abge- i 
schlossen werden. Außerdem finden Sie regelmäßig in der Zeitschrift 
uses | „COIMPDUITONIC“ C-16/116 Programme zum Abtippen. 
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rätsel 


16/116 Freunde aufgepaßt & & C-16/116 Freunde aufgepaßt %& 


Großes „Compute mit“-Preisrätsel 


Auch in dieser Ausgabe veröffentlichen wir wieder ein großes Preisrätselmitriesi- 
gen Gewinn-Chancen für unsere Leser. Unter den ersten richtigen Einsendungen 
der Lösung werden wir insgesamt 50 Programm-Kassetten mit dem Action-Spiel 


SPACE-PILOT 


verlosen. Nutzen Sie also Ihre Chance und schreiben Sie Ihre Lösung an: 


TRONIC-VERLAG GmbH 
Postfach 870 
3440 Eschwege 


* C- 





Und nun zu unseren Fragen!!! 





Was bewirkt die Tastenfolge ESC und V? Welchen Baustein des C-16 bezeichnet man mit | 
S Scrollen des Bildschirms nach oben TED? 
E Scrollen des Bildschirms nach unten 


U READY-Meldung ausgeben U Soundchip 


P _ Videoprocessor /Soundchip 
R .Floppycontroller 


Durch welche Tastenfolge gelangt man in den 
 Einfüge-Modus? Wieviel Speicherplatz besitzt der C-16 bei 
1 EsCundi | Verwendung der Hires-Grafik ? 


H ESCund A 


R Nach Anführungszeichen Cursor nach unten |, 204» Bytes 


N 4096 Bytes 
R 10000 Bytes 


Welche Speicheradresse besitzt der Port, der das 


" fun di : 2 Beantworten Sie unsere 5 kleinen Fragen und 

signal für die Datasette liefert‘ Sie gehören vielleicht zu den glücklichen Ge- 

A Speicherstelle $01 winnern. Die Auflösung erfolgt in Heft 8 von 

B Speicherstelle $FFD7 „Compute mit“ zusammen mitden Namen der 
H Besitzt keine Adresse Gewinner. 


Lösungshilfe: Das Lösungswort bezieht sich auf einen 


der Grafikvorzüge des C-16/116. 
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Die „Compute mit“-Redaktion 
stellt wieder einige Programme 
in kurzen Reviews vor. Dies ist 
nur ein kleiner Überblick der 
2. Zt. im Handelbefindlichen Pro- 
gramme. Preisangaben wurden 
nicht gemacht, da im Handel un- 
terschiedliche Preise erhoben 
werden. Erkundigen Sie sich da- 
her beim Kauf Ihrer Software 
nach den gültigen Preisen. 


INVASION 2000 AD 


Dieses Programm gehört zur Gruppe der 





ältesten Spielhallenhits überhaupt und ist 
jetzt endlich auch für den C-16/116 auf 
dem Softwaremarkt erhältlich. 











ASON BO 
a \ 


N 





EEE FE FE 


FE 





zeugt vor allem durch seinen 
tollen Sound und die sehr direkte 
Steuerung. 

Im Jahr 2000 A.D wird die Erde von 
feindlichen Wesen mit riesigen Flotten- 
verbänden angegriffen. Als Kommandeur 
einer irdischen Verteidigungsbasis müs- 
sen Sie alles daransetzen, um eine Inva- 
sion der außerirdischen Angreifer zu ver- 
hindern. Zur Erfüllung Ihrer Mission ste- 
hen Ihnen 3 Erdstützpunkte, eine ausge- 
zeichnete Bewaffnung und drei Schutz- 
schilder, die Sie allerdings auch selbst ge- 
fährden können, zur Verfügung. Ein wirkli- 
ches spannungsgeladenes Progamm, 
trotz weitverbreiteter Spielidee. Eine loh- 






nenswerte Anschaffung für alle Fans von | 


Action-Games! 
Hersteller: Solar-Software 
Vertrieb: Rush-Ware GmbH 







Dieses Mal befinden Sie sich auf einem 
fremden Planeten, auf dem auf wunder- 
same Weise Blumen mit riesigen Ausma- 
ßen wachsen. Diese Biumen können Ih- 
nen als „Schutzschild“ wertvolle Dienste 
leisten, falls es Ihnen gelingt, mit Ihrer La- 
serkanone die feindlichen Aliens zu zer- 
stören, die anderenfalls selbst Ihren 
„Schutzschildern“ zu Leibe rücken. Wenn 
die Blumen ihre endgültige Größe erreicht 
haben und Sie noch genügend Energie 
besitzen, gelangen Sie in den nächsten 
Level, wo sich natürlich die Spielaufgabe 
wesentlich schwieriger gestaltet. 


Ein Programmbeitrag der englischen Soft- 
warefirma „Gremlin Graphics“, der zwar 
eine relativ gute Grafik aufweist, doch in 
bezug auf das Spielgeschehen nicht be- 
sonders abwechslungsreich ist. 
Hersteller: Gremlin Graphics 

Vertrieb: Rush-Ware GmbH 





GCompute mib 


Sie sind der letzte Überlebende einer 
Ameisenarmee, die von Riesenscorpio- 


-- PETALSOFDOOM 






nen vernichtet wurde. Ihre Aufgabe istes, 
die Ameisenkönigin, die sich in letzter Se- 
kunde in Sicherheit bringen konnte, vor 
den weiteren Angriffen der Scorpione zu 
bewahren. Um dieses Ziel zu erreichen, 
müssen Sie mehrere Räume durchque- 
ren, die jedoch durch gewaltige Tore ver- 
schlossen sind und zudem noch von den 
Scorpionen bewacht werden. Sie haben 
nur eine Chance, die Durchquerung der 
Räume unbeschadet zu überstehen, wenn 
Sie eine ausreichende Anzahl von Scor- 
pioneneiern vertilgen und die im Laby- 
rinth verteilten Schlüssel einsammeln. 
Ein interessantes Spiel, das schnelle 
Reaktionen und taktisch geschicktes Han- 
dein erfordert. Ä 
Hersteller: Commodore Business Machines, 
Northampton/England. 

Vertrieb: Rush-Ware GmbH 


THE RETURN OF ROCKMAN 


‚The Return of Rockman“ erinnert in sei- 
nem Programmaufbau stark an den Spie- 
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# Ihre Aufgabe lautet, die ra- 
send schnellen und böswilli- 
gen Monster in von Ihnen kon- 
struierte Fallgruben zu locken und 
diese dann auszuschalten. Dieses Un- 
terfangen läßt sich im ersten Level noch 
relativ einfach verwirklichen, doch mit 









teklassiker „Boulder Dash“. In diesem Fal- 
ie heißt es, Rockman auf seiner gefährli- 
chen Jagd nach den Diamanten durch die 
unterschiedlichen Höhlenlabyrinthe mit 
steigendem Schwierigkeitsgrad zu steu- 
ern. Bei allen Aktionen sollte man taktisch 
geschickt und reaktionsschnell handeln, 
um den zahlreich auftretenden Gefahren 
und Widerständen wirksam zu begegnen. 
Insgesamt gesehen ein interessantes Pro- 
grammangebot, trotz althergebrachter 
Spielidee. 

Hersteller + Vertrieb: Mastertronic GmbH 






fortschreitender Spieldauer werden die 
Monster immer gefährlicher, denn diese 
sind nun praktisch unsterblich geworden. 
Fazit: Ein Mastertronic-Programm, das Sie mit 
Sicherheit voll in Anspruch nehmen wird! 


Ein Programm für „Labyrinthsüchtige“. 
Mit diesem kurzen Satz könnte man das 
Spiel „Maniac Death Chase“ treffend cha- 
rakterisieren. Unser Held namens Pat be- 
findet sich in einem riesigen Höhlenkom- 
plex und sucht verzweifelt einen Weg, der 
ihn zum Tageslicht führt. 





 HEKTIK | 


Hektik ist, wie der Titel nicht zu Unrecht 
vermuten läßt, ein wirklich schnelles La- | Auf seiner Suche wird er von riesigen 
byrinthspiel voller Action und Spannung. | Spinnen verfolgt und zusätzlich noch 
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durch zahlreiche Hindernisse belästigt. 
Wird es Ihnen gelingen, Pat wieder ans Ta- 
geslicht zu bringen? 

Fazit: Ein relativ schwierig zu meisterndes 
Programm, das auch höheren Ansprü- 
chen genügt. 


—_— 


Fe 


———= 


= 


= 


Erz 


4 Gh GEBE 





| 


Hersteller: Knight Soft 
Vertrieb: Rush-Ware GmbH 






GALAXIONS 


Diesen berühmten Spielhallenhit, der zu 
den ältesten Programmen zählt, brachte 
jetzt die englische Firma „Solar Software“ 
auch für den C-16/116 auf den Markt. Die 
Spielaufgabe besteht darin, mit Ihrem 
Raumschiff feindliche Angreifer, die plötz- 
lich aus der Stratosphäre auftauchen, ab- 
zuwehren. 

Trotz zahlreicher und weitverbreiteter Ver- 
sionen kann man in-diesem Fall von einer 
gelungenen Abwandlung für den C-16 
sprechen. Überzeugend vor allem das 
schnelle Spielgeschehen, die tolle Grafik 
und der hervorragende Sound. 
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Hersteller: Solar-Software 
Vertrieb: Rush-Ware GmbH 





Dieses G-16-Programm der Softwarefirma 
„Tynesoft“ (Sitz in Blaydon, England) be- 
fördert Sie als Kanuefahrer mitten auf ei- 
nen reißenden Fluß. Dort gilt es, zahlrei- 
chen natürlichen Hindernissen wie Fels- 
brocken und treibenden Baumstämmen 
auszuweichen und zusätzlich einen an- 
spruchsvollen Parcours, bestehend aus 
Slalomstangen und -toren, möglichst feh- 
lerlos und schnell zu bewältigen. 

Fazit: Ein Sportspiel, das vorwiegend von 
seinem schnelien Spielgeschehen lebt, 
dem es jedoch etwas an Abwechslung 
mangelt. 
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oftwar - FETTE 





Dieses Programm verleiht Ihnen den 
Rang eines „Sea Harrior Piloten“. 

Ihre Mission lautet, die eigenen Tankschif- 
fe zu verteidigen, die gegnerischen Geleit- 
züge anzugreifen und möglichst viele 
feindliche Schiffe zu zerstören. Doch der 
Feind ist stark: Denn schwer bewaffnete 
und äußerst bewegliche Hubschrauber 
greifen Sie.an, sobald Ihr „Sea Harrior“ ge- 
ortet wurde. 
Nun wird ihr ganzes taktisches Geschick 
und volle Flugkonzentration gefordert. 


Ein Beitrag der Softwarefirma „Razor Soft“ 
(Vertrieb: Rushware), der Action und 
spannende Unterhaltung verspricht. 






Alle hier vorgestellten Pro- 
gramme sind über den Fach- 


Compubhe mib 



























handel oder in mehreren 
Kaufhausketten erhältlich. 


Bitte richten Sie keine Bestellungen 
an den Verlag, da uns keine Pro- 
gramme zum Versand vorliegen! 


Das Software-Angebot wurde 
bei Redaktionsschluß noch 
erheblich erweitert. So wur- 
den viele „C-64 Renner“, für 
das C-16-System umgeschrie- 
ben und sind im Fachhandel 
bereits erhältlich. Achten Sie 
deshalb auf die Spieletest in 
der Zeitschrift „Aktueller Soft- 
ware-Marki”, da hier eine we- 
sentlich größere Anzahl an 
Programmen gestestet wird. 
Wenn Sie also immer aufdem 
neuesten Softwarestand sein 
wollen, kaufen Sie dieses Ma- 
gazin. 
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Was fehlt auf Ihrem 
Bücherbord? 








Autor: Fritz Schäfer 

Vertrieb: Kingsoft 
Schnackebusch 4 
5106 Roetgen 


Obwohl in den letzten Monaten sicher kein 
Computer so hohe Verkaufszahlen erzielt 
hat wie der C-16, ist das Literaturangebot 
für diesen Rechner kaum gestiegen. 
Selbst der renommierte Data-Becker Ver- 
lag, der sonst auf das „Commodore-Ge- 
schehen“ schnell reagiert, hat sich beim 
6-16 stark zurückgehalten. Lediglich die 
Titel „C-16 für Einsteiger“ und „Tips und 
Tricks“ wurden vor kurzem präsentiert. 
Das von vielen erwartete „C-16 Intern“ ist 
bisher nicht erschienen und wird wohl 
auch vorerst nicht in den Handel kommen. 
Ob es den Verlagen entgangen ist, daß 
Commodore durch die großen Kaufhaus- 
ketten eine Verkaufszahi von etwa 
200 000 Exemplaren erzielt haben? 

Die Firma Kingsoft hat diese Marktlücke 
jedoch erkannt und bietet seit längerer 
Zeit verstärkt Software und Literatur für 
dieses Gomputersysteman. Wirhaben uns 
einmal mit „Das große G-16 Buch“ den 
neusten Titel zu Gemüte geführt. Wer ei- 
nes der INTERN-Bücher von Data-Becker 
kennt, wird hier auf den ersten Blick einige 
Ähnlichkeiten bemerken. Diese bestehen 
vor allem in der Gliederung der einzelnen 
Themen sowie im Druck, der mit einem 
Matrixdrucker durchgeführt wurde. Diese 
Ähnlichkeiten traten sicherlich nicht zu- 
fällig auf, sondern man wollte bewußt die 
Zielgruppe der INTERN-Serie ansprechen. 
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Der Inhalt des Buches spricht eher den 
fortgeschrittenen Programmierer an. Die- 
ser findet hier endlich Informationen über 
RAM- und ROM-Belegung, sowie die Be- 
schreibung der Sound- und Grafikregister. 
Auch eine kleine Einführung in die Ma- 
schinensprache, wie es bei den INTERN- 
Büchern üblich ist, wurde hier nicht ver- 
gessen. Zum Erlernen der Maschinen- 
sprache ist dieser Abschnitt jedoch leider 
zu kurz geraten. Man kann dieses aller- 
dings ohne weiteres zum Nachschlagen 
verwenden. Wie bei jedem guten Titel 
wurden auch einige nützliche Beispiel- 
Programme veröffentlicht: OLD/MERGE/ 
VARLIST/CROS und ähnliches. 

Weitere wichtige Punkte von „Das große 
C-16 Buch“ bilden C-64/C-16-Vergleichs- 
tabellen der Zero-Page sowie des ROM’s. 
Damit wird das Umschreiben vorhan- 
dener C-64-Programme auf den C-16 


Compute mib 





bücher 





stark vereinfacht. Leider erhebt dieser Teil 
keinen Anspruch auf Vollständigkeit. 
Auch die Anordnung scheint uns etwas 
unübersichtlich. Hervorragend dagegen 
sind die Beschreibungen des Grafik- und 
Soundprozessors. Hier wird jedes Bit, je- 
des Registergenau unter die Lupe genom- 
men. Auch die Grafikbetriebsarten wer- 
den ausführlich beschrieben. Das Einzige 
was einem Profi noch fehlt ist das doku- 
mentierte ROM-Listing, Sicher ist der Au- 
tor davon ausgegangen, daß ROM-Li- 
stings schon mehrfach in anderen Ausga- 


| ben veröffentlicht wurden und so eventu- 


ell Lizenzprobleme entstehen könnten. 


Fazit: Das vorliegende Werk ist 
wirklich ein umfassender Titel für G- 
64-Umsteiger oder erfahrene C-16- 
Programmierer. Durch die Be- 
schreibung von wichtigen Regi- 
stern und der ROM/RAM-Speicher- 
aufteilung dürfte „Das große C-16 
Buch“ für das professionelle Pro- 
grammieren unentbehrlich sein. 


Hinweis: 
Das in der Sonderausgabe 1. 
vorgestellte Buch : „Der 


Commodore 16 in der Pra- 
xis“ 'aus der Commodore- 
‚Sachbuchreihe ist: nicht 


mehr im Handel erhältlich. 
Wenden Sie sich in. diesem 
Fall bitte an den. ‚Verlag 
Markt + ‚Technik in .Mün- 
chen, der einen neuen Titel 
aufgelegt hat, welcher ab. 
Ende Juni erhältlich ist. 
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Programme 


>2210 
>27218 
>ZRRO 
»2228 
>2230 
»2258 
»2240 
2248 
2250 
>2258 
2260 
>2268 
»+2270 
»2278 
>2280 
>2288 
>2290 
32298 
F22AO 
»ZZAB 
>22RO 
>2ZZBB 
FP2CO 
>22C8 
>22DO 
»22D8B 
FRZEO 
>P2EB 
>22F0 
»22F8 
>2300 
>2308 
»2310 
2318 
FP3ZO 
»2328 
>22330 
»2338 
>23A40 
»2348 
2350 
>2358 
>IFESD 
F2PIH8 
2370 
+2378 
F2380 
"2388 
>2F9I0 
2398 
>23AO 
>23Ag 
>2ZBRO 
>23B8 
>23C0 
>23C8 
>23DO 
>253D8 
>ZIEO 
»23E8 
>23F0 
>23F8 
»+2400 
>2408 
»2410 
»2418 
>»2420 
>2428 
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c2 
E3 
Or 
c2 
3R 
or 
c2 
04 
OF 
c2 
54 
OF 
c2 
AS 
Or 
c2 
A3 
or 
c2 
04 
or 
c2 
AD 
AD 
13 
009 
ca 
20 
A? 
00 
92 
Q0 
00 
00 
00 
00 
00 
00 
[22 
AO 
AS 
C7 
Do 
20 
or 
8D 
8D 
8D 
8D 
SD 
OD 
oc 
öb 
er 
03 
Öc 
oc 
oil 
15 
oc 
BD 
AT 
03 
or 
7D 
?D 
#7 
50 


oF 


>2430 8D 34 23 59 09 8D 1B 
>2438 897 00 SD 14 23 BD 15 
>2440 8D i& 23 A? 02 8D IC 
»2448 SD 1D 23 A? 00 BD 12 
>2450 8D 13 23 8D 28 23 8D 
>2458 23 BD 32 23 A? 08 8D 
>2460 23 AF 12 8D 11 23 EA 
>24A68 EA EA EA EA EA EA 60 
>2470 00 8D 29 23 OE 29 23 
>2478 29 23 BD IF 235 AS BD 
>2480 23 AN 4E 29 23 EO 00 
>2488 OB EE 29 25 AD 29 25 
>2490 05 DO El 60 20 EC 22 
>2498 00 A9 20 51 FD CB #1 
>24R0 AE 27 25 BD 37 23 C9 
>2448 DO OE AS FD 38 E9 ZB 
>24B0 02 C& FE 85 FD 4C Ca 
>24B8 AS FD 18 47 28 90 02 
>24C0 FE 85 FD AC CB 24 A2 
>24C8 AC CD 24 A2 02 AO 00 
>2400 FD C9 40 DO 03 AC FB 
>24D8 C8 Bi FD C9 40 DO 05 
>24E0 FR 24 OE 29 23 EO 01 
>24E8 09 AE 29 25 DE IF 23 
>24F0 15 25 BE 29 23 FE IF 
>24F8 AC 15 25 ARE 29 25 BD 
>2500 23 C9 02 DO 08 A9 01 
>2508 37 235 AC 74 24 99 02 
>2510 37 25 ADC 74 24 4E 29 
»2518 AS FE 38 E9 04 85 FE 
»2520 00 A9 21 91 FD CS 9 
>2528 AS FE 18 49 04 85 FE 
>2530 00 A9 AB 91 FD CB A97 
>2538 91 FD AC 87 24 EA EA 
>2540 10 23 AC 11 23 20 EC 
»25498 AD 12 23 C9 04 DO 05 
>2550 OC EA EA EA AO 00 20 
>2558 25 CB 20 72 25 AO 28 
»2560 72 25 CB 20 72 25 AO 
>»2568 20 72 25 CB 20 72 25 
>2570 CE 24 Bi FD C9 41 % 
>2578 C9 AB BO 03 AC 94 25 
>»2580 01 8D 32 23 60 EA EA 
>25989 AO 00 AF 20 91 FD CB 
32590 FD AO ZB 91 FD CB 91 
>2598 AO 50 71 FD CB 91 FD 
»asA0 12 23 C9 00 FO 12 CE 
>25AB 23 AD 15 23 C9 00 DO 
>25B0 A9 00 8D 12 25 AC F8 
>2558 AO 78 Bi FD E39 40 FO 
>25C0 C8 Bi FD CF 40 FO 06 
>25C8 11 23 4C OB 264 AS C6 
>25D0 09 DO OB A9F 04 80 13 
>25D8 8D 12 23 4C OB 26 C9 
>2SE0 DO 15 CE 11 23 CE 11 
»2S5E8 CE 11 23 AFP 04 OD 13 
>25F0 A9 O1 8D 12 23 4C OB 
»2S5F8 AS C& C9 OB DO 04 EE 
>»2600 23 AC OB 26 CI 0A DO 
»2608 CE 10 25 AD 10 23 C9 
>2610 DO 05 A9 04 BD 10 23 
>2418 10 25 C9 17 DO 05 99 
>2620 8D 10 23 AC 9D 2C EA 
>2628 EA EA EA EA AO 00 20 
>2630 ?& CB 70 AA 26 AO 28 
>2638 AAN 26 CR 20 4A 26 AO 
>2440 20 AN 26 CB 20 AA 26 
>2548 57 26 Bi FD C9 20 Do 


Compube mik 


>2650 
2658 
F26A0 
>2668 
>2670 
>2678 
»+2480 
>2688 
>2690 
>26978 
>24A0 
>26A8 
>26BO 
>24B8 
>2&C0 
>2868 
>26DO 
>24D8 
>26E0 
>26E8 
+26F0 
>2AF8 
>2700 
>2708 
»2710 
>2718 


>2720 . 


>2728 
>2730 
>2738 
>2720 
»2748 
>27539 
>2758 
>2760 
>2768 
»27709 
»2778 
>2780 
»2788 
>27%70 
»279789 
>27RA0O 
>27R8 
>27B0 
>27B8 
>27C0 
>27C8 
+27D0 
»27D8 

Z7EO 
»2Z7E8 
327F0O 
>27F8 


>2800 : 


»2908 
>2810 
‚zB18 
>2820 
»2828 
>2830 
>2838 
>2840 
2948 
>2850 
>28S8 
>2840 


2868 
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>2870 20 9C 28 A9 85 71 
»2878 A4 28 EE 34 25 AE 
»2880 AC 36 23 20 EC 22 
‚2899 A? AD 91 FD 20 IC 
>2890 71 91 FD AE 34 23 
»28978 DO EO FO 10 AS FE 
>28R0 04 85 FE 60 AS FE 
»s2gA8 04 85 FE 40 20 C7 
»ZBRBO 01 Bi FD C? 00 DO 
SZ8B8 FF C9 19 BO 25 A2 
>28C0 20 EC 22 20 9C 28 
»29C8 AO 00 91 FD AQ 28 
»28D0 20 A4 28 A? AE AO 
»28D8 FD AO 28 A9 SA 91 
>2BEO 65 29 C97 32 BO 2A 
»28E9 18 EI 19 AB 20 EC 
>28F0 9C 28 AI 65 AO 00 
>28F89 AO 28 AY 71 91 FD 
>2900 28 AF AO AO 00 91 
»2908 4D AO 28 91 FD 4C 
»2910 C7 4B BO 28 AZ 27 
>2918 32 AB 20 EC 22 20 
32920 AF 3& AO 00 91 FD 
»2928 91 FD 20 A4 28 AP 
»2930 00 91 FD AO 28 A9 
>29589 FD AC 545 29 09 64 
2940 A2 27 18 E9 4B AB 
»2948 22 20 96 28 AP 35 
>2950 91 FD AO 28 91 FD 
3EI58 28 AF SB AO 00 91 
32980 SE AO 28 91 FD EEE 
»2968 DO 03 EE 34 2S EE 
»2970 DO 03 EE 34 23 A9 


»2978 29 23 OE 29 23 AE 


>2980 BD 1E 23 C9 00 Fo 
>2988 IE 23 4E 29 23 EE 
>2990 Ab 29 23 C9 05 DO 
>2998 0oC 2A EA EA EA EA 
>29AO AP 27 8D Z5 73 #9 
>ZIAB 36 23 AE 35 23 AC 
>29B0 20 EC 22 AO 00 A? 
»29BB FD EE 36 23 AD 36 
>29C0 17 DO E7 AD 33 23 
>»29C8 33 23 85 FD AD 34 
»29D0 FE 60 AO 28 20 F9 
>27D8 20 DO 03 FE 2B 23 
>29E0 27 AS FD 38 EI 78 
>29E8 C6 FE 85 FD 20 F? 
>29F0 20 DO 03 DE ZB 23 
>29F8 27 Bi FD C9 20 FO 
>2A00 CB Bi FD CF 20 FO 
»Z2A08 CB Bi FD 60 A? 00 
>2A1O 23 OE 30 23 AE 30 
»2A1B ZA 23 C9 00 FO 03 
>2A20 23 4E 30 23 EE 30 
>2A28 30 23 C? 03 DO EZ 
>2A30 FF C# 09 EA 90 053 
>2A33 2A C9 06 90 03 AC 
>2A40 AC SC 20 EA 20 EC 
>2A48 IE 28 AFP 21 AO 00 
>2ASO CB 91 FD 20 A4 28 
»2ASB8 AO 00 91 FD CB A9 
»2A&0 FD AFP 00 BD 29 23 
>2AA8 23 AE 29 23 BD 1E 
>2A70 00 DO OD A7 2& 9D 
»2A78 09 09 20 50 2E 4C 
»2AB0 4E 29.23 EE 29 23 
>2ABS 23 69 05 FO FO DO 
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FEAFO 
22A9IB 
>Z2AAO 
>ZARAB 
>2ABO 
>2ABS 
F2ALCO 
>ZACB 
FZADO 


>2ADE : 


>ZREO 
>Z2AEB 
>2AFO 
>2AFB 
>2BOO 
>ZBos 
>2B10 
>2B18 
»2B20 
>2B28 
>2B30 
+26358 
>2B40 
>2B48 
>2B50 
»2558 
>2B60 
>2B48 
>2B709 
>2B78 
>2B80 
>2R88 
>2RIO 
=2B98 
>2ZBAO 
>Z2BA8B 
>2BBO 
>2BB8 
>Z2RLCO 
>2BC8 
>2BEDO 
>2ED8 
>2BEO 
>ZBEH 
>Z2BFO 
>2BF8 
>2C00 
>2CO8 
>2C10 
>2C18 
»2C209 
>2C28 
>2C30 
+2C38 
>20C40 
>2648 
>2C50 
>2C58 
>2C50 
»2Cäh8B 
>2C70 
»2C78 
>2CBO 
»2C98 
>2E9I0 
>2C78 
>2CAO 
>Z2CAB 


AO 
AO 
FD 
00 
91 
00 
So 
OD 
7D 
23 
03 
AC 


OE 
8D 
A? 
30 
07 
or 
EE 
Do 
c? 
O0 
52 
2C 
&0 
27 
AD 
76 


FF 
ac 
4B 
EA 
ac 
25 
ac 
2B 
oE 
27 


AC 
28 
Ao 


07 
23 
AD 
01 
45 
FD 
A 
20 
25 
oA 
EE 
DO 
1& 
0 
28 
c7 
Bi 
BO 
4C 
FO 
07 
11 
c7 
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‚programme 


>2CBO 
>2CR8B 
>2CC0 
>2CC8 
>2CDO 
>2CD8 
>2CEO 
>2CE8 
>2CEO 
>2CF8 
>2DO0 
>2DO8 
>2D10 
>2D18 
>2D20 
>2D28 
>2DS0 
»2D38 
>2D40 
>2D48 
>2D50 
>2D58 
>2D60 
>2D68 
>2D70 
>2D78 
>2D80 
>2D88 
>2D70 
>2D98 
>2DAO 
>2DA8 
>2DBO 
>2DRB 
>2DCO 
>2DC8 
>2DDO 
>2DDE 
>2DEO 
>2DE8 
>2DFO 
>2DF8 
>2E00 
>2E08 
>2E10 
>2E18 
>2E20 
>ZE28 
>2E30 
>2E38 
>2E40 
>2E48 
>2E50 
>2ES8 
>2E60 
>2E68B 
>2E70 
>2E78 
>2E80 
>2EB8 
>2E90 
>2EIRB 
>2EAO 
>2EAB 
>2EBO 
>2EBB 
>2ECO 
>ZECB 


ac 
SD 
23 
91 
28 
Fi 
c8 
00 
F8 
AF 
FD 
AO 
18 
23 
23 
23 
7C 
ce 
L2 3 
FD 
91 
28 
91 
ca 
ic 
8D 


3m 
11 
20 
FD 
A? 
FD 
97 
a2 
i8 
=0 
AD 
SO 
8D 
8D 
A? 
RC 
28 
9 
FD 
20 
FD 
A? 
FD 
A? 


26 


CE 
AE 
22 
A? 
91 
50 
Er 

E98 
oil 
00 
91 
FD 
FF 
23 
20 
23 
52 
AO 
50 
28 
44 
a1 

So 
91 

1D 
8D 
05 
8D 
60 
ER 
EA 
EA 
EA 
EA 
FF 
2D 
23 
IC 
je7-7 
29 
FD 
2D 
EA 
SD 
EA 
EA 


iB 
10 
AO 
35 
FD 
A9 
FD 
DO 
67 
23 
FD 
c8 
A? 
A? 
50 
20 
AO 
28 
71 
A? 
c8 
FD 
AF 
FD 
23 
1D 
38 
33 
EA 
EA 
ER 
EA 
EA 
EA 
60 
AS 
AC 
28 
AO 
a7 
AD 
85 
EA 
19 


23 
23 
00 
E21 
c8 
54 
A? 
FD 
02 


FD 


c8 
91 
04 
o1 
ZF 
EC 
00 
91 
FD 
41 
71 
c8 
43 
A? 
&0 
23 
E? 
23 
ER 
EA 
EA 
EA 
EA 
EA 
co 
FE 
11 
AD 
01 
32 
c5 
FE 
EA 
23 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
EA 


A? 
Ac 
A? 
FD 
nF 
EZ 
00 
c8 
DO 
c8 
91 
FD 
8D 
8D 
ARE 
22 
9 
FD 
08 
AO 
FD 
A? 
971 
02 
A? 
AS 
IF 
A? 
EA 
EA 
EA 
EA 
ER 
EA 
OF 
8D 
23 
i2 
RA? 
9 
2D 
ac 
EA 
50 
EA 
EA 
EA 
EA 
EA 
EA 
EA 
ER 
AFP 


48 
i1 
52 
AO 
5a 
FD 
AO 
DO 
EF 
91 
FD 
A9 
10 
12 
10 
20 
FD 
c8 
91 
oo 
Au 
45 
FD 





programme 


>2EDO EA EA EA EA EA EA EA ER | >3040 00 00 00 00 00 00 00 00 | >31B0 00 00 00 00 00 00 00 00 
>2EDS EA Er En EA EA EA EA EA | >3048 00 00 00 00 00 00 00 00 | >51E8 00 00 00 00 00 00 00 00 
12EEO ER EA EA EA EA EA EA EA | ?3050 00 00 00 00 00 00 00 00 | >SiC0 00 00 00 00 00 00 00 00 
S2EEB EA EA EA ER EA EA EA EA | >3058 00 00 00 00 00 00 00 00 | >31C8 00 00 00 00 00 00 00 00 
>2EFO EA ER EA EA EA EA EA EA | >3060 00 00 00 00 00 00 00 00 | >31D0 00 00 00 00 00 00 00 00 
>2EFB EA EA EA EA EA EA EA EA | >3068 00 00 00 00 00 00 00 00 | >Z1DB 00 00 00 00 00 00 00 00 
>2F00 AD 16 23 38 ED 19 23 BO | >3070 00 00 00 00 00 00 00 00 | >S1EO 00 00 00 00 00 00 00 00 
>2F09 01 &0 C9 00 DO 18 AD 15 | >3078 00 00 00 00 00 00 00 00 | >Z1ER 00 00 O0 00 00 00 00 00 
»2F10 23 38 ED 18 23 BO 01 &0 | >3080 00 00 00 00 00 00 00 00 | >51F0 00 00 00 00 00 00 00 00 
s2F1B C? 00 DO OA AD 14 23 38 | >3088 00 00 00 00 00 00 00 00 | >S1F8 00 00 00 00 00 00 00 00 
»2F20 ED 17 23 BO 01 60 AD 14 | >3090 00 00 00 00 00 00 00 00 >5200 AS A9 AA #E TE-FF FF FF 
32F28 23 8D 17 25 AD 15 253 BD | >3098 00 00 00 00 00 00 00 00 | >3208 01 03 053 05 01.00 01 07 
>2F30 18 23 AD 16 23 8D 19 23 | >30A0 00 00 00 00 00 00 00 00 en 07 06 04 09 1F 33 03 083 
S2F38 60 EA EA EA EA EA EA EA | >30AB 00 00 00 00 00 00 00 00 | >3218 02 02 02 23 IF 08 14 O8 
>2F40 EA EA EA EA EA EA EA EA | >30B0 00 00 00 00 00 00 00 00 | >3220 FO DB FE CB FO CO EO 58 
S2FAR EA EA EA EA EA EA EA EA | >30E8 00 00 00 00 00 00 00 00 | >3228 7C 7C FC FA Fa F& SO 50 
S2FS0 8D il 23 A9 00 BD 29 23 | >30C0 00 00 00 00 00 00 00 00 | >3230 20 20 20 BA FC 08 14 08 
>2F58 OE 29 23 AE 29 23 BD 1E | >30C8 00 00 00 00 00 00 00 00 | 3238 00. 01 01 00 01 03 04 OF 
S2F&O 23 09 00 FO 19 BD 1F 23 | >30D0 00 00 00 00 00 00 00 00 | >3240 19 02 04 27 IF O8 14 08 
>ZFAB AB BD LE 23 AA 20 EC 22 >Z0D8 00 00 00 00 00 00 00 00 | 3248 EO DS AO CO FO 30 FO Fo 
>2F70 AO 00 AF 20 91 FD CB 71 | >S0EO 00 00 00 00 00 00 00 00 | >3250 78 20 40 70 FC 08 14 08 
>2F78 FD AP 00 AE 29 23 9D 1E | >30E8 00 00 00 00 00 06 00 00 >3258 OF OD SF ES FI FRFFFFF 
S2FB0 25 4E 29 23 EE 29 23 AD | >30F0 00 00 00 00 00 00 00 00 3260 FO Bo Fi C3 #F FFFF FF 
S2FRB 29 23 L9 05 DO CA AF 00 | >Z0F8 00 00 00 00 00 00 oo oo | ?3268 FF FFFFFFFFFFFF FF FF 
S2F90 BD 30 23 OE 30 25 AE 30 | >3100 00 00 00 00 00 00 00 00 | ?3270 FF DF F7 EF FR BF FB OAF 
»2F9B 23 BD 2A 23 C9 00 FO IF | >S108 00 00 00 00 00 00 00 00 >3279 00 OE 11 7F 06 00 00 00 
>2FAO BD 2B 23 AB BD 2A 23 AR | >3110 00 00 00 00 00 00 00 00 >3280 00 00 7F FF FF 7F 00 00 
S2FAB 20 EC 22 AO 00 AF 20 91 | >3i1@ 00 00 00 00 00 00 00 00 | ?32B8 00 00 Lo FF Ci 80 00 00 
S>2FBO FD CB 91 FD CB 71 FD Ag | ?3120 00 00 00 00 00 00 00 00 | ?3270 00 02 00 02 01 01 04 O1 
S2FCO 30 23 EE 30 23 AD 30 23 | >3130 00 00 00 00 00 00 v0 00 | ?3ZR0 00 02 00 13 04 04 OA 04 
SSFEB EA EA EA EA EA EA ER EA | ?3158 00 00 00 00 00 00 00 00 | ?32CB D7 FF BD F7 FF DD F7 FF 
S2FFB EA EA ER EA EA EA EA EA | 3168 00 00 00 00 00 00 00 aa | ?32D8 IC SE CE 26 ıC 08 IC 34 
>3000 00 00 009 00 00 00 00 00 >3170 00 00 00 00 00 00 00 00 >3Z2E0 34 34 34 36 18 08 08 S8 
>3010 00 00 00 00 00 00 00 00 >3180 00 00 00 00 00 O0 00 00 >32F0 00 00 00 00 090 20 920 00 
>3018 00 00 00 00 00 00 00 00 >Z188 00 00 00 00 D0 00 00 00 >32F8 00 00 00 00 020 00 00 00 
>+7020 00 00 00 00 oo 00 00 00 »>3190 O0 00 00 00 00 00 oo 09 >3A0O DC DE DC 20 DC 20 20 DE 
33028 00 00 00 00 00 00 00 00 | >3198 00 00 00 00 00 00 00 ao | 733098 20 DE DE DC 20 DE BC DE 
>3030 00 00 00 00 00 00 00 00 | »31A0O 00 00 00 00 00 00 00 00 
>3038 00 00 00 00 00 00 00 00 | »Z1AB 00 00 00 00 00 00 00 00 
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3. The berks trilogy {CRL) SÖFT- UND HARDWARE IN GROSSER AUSWAHL! 


= B {JOYSTICKS/SPIELE/BÜCHER ETC.) 
4. Hektik (Mastertronic) KOSTENLOSE INFOS ANFORDERN BEI: G 


5, Return of Rockman ‘  (Mastertronic) LU} 


6. Beach head (WS. Cd) | »> Software-Versand p 
7. Formela 1 Simulator (Masterironic) A. BACHLER 
8. Sea Strike (Razor-Soft POSTFACH 424 £ 
9. Canoe Slalom [Tynesoft) £ N 
10. Mercenary (Novagen} 4290 BOCHOLT Ä 


Dies ist die aktuelle Software-Hitparade aus dem I. Halb- 
jahr 1986. Die Programme sindüberallimHandelerhältlich, | SOFTWARE AUCH FUR andere COMPUTER! 
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——— AUTO-STARTER -——— 


Professionelle Programme. sind in der Regel mit einem Autostart 
‚versehen, KEILEIDIMUEN gibt ELEIETEERIUTEATBETTIE 23 0005 
gramms ein, und es lädt und startet sich dann ohne weiteres Zutun 
des Anwenders. Die Profis benutzen dieses Verfahren, um ihre Pro- 


gramme vor dem unerlaubten Kopieren zu schützen; doch auch für 
Hobbyprogrammierer ist dies sicherlich eine interessante Technik, 
wenn auch der Aspekt des Kopierschutzes hier nicht im Vorder- | 
grund steht. Aber ein Programm, das sich nach dem Laden ohne das 
lästige RUN gleich selbst startet, macht schon einen professionel- 
len Eindruck, und der ist wichtig. 





Das hier abgedruckte Programm für den 
C-16/116 istin der Lage, ein beliebiges Ba- 
sicprogramm miteinem Autostart-Kopf zu 


versehen. Das Programm ist sowohl für 


den Betrieb in Verbindung mit einer 1540/ 
1541-Diskettenstation als auch für Data- 
settenbetrieb ausgelegt. Das Autostart- 
Programm ist im Endeffekt nur minimal 
länger als das ursprüngliche Basic-Pro- 
gramm (auf Diskette.beispielsweise nur 
einen Block) und die Anwendung der Au- 
tostart-Routine ist derarteinfach gehalten, 
daß sie keinem Anwender Schwierigkei- 
ten bereiten dürfte. 

Abgedruckt ist hier der Basic-Loader der 

eigentlichen Autostart-Routine, die selbst 

vollständig in Maschinensprache ge- 
schrieben ist. Gehen Sie daher zum Abtip- 
pen folgendermaßen vor: 

- Geben Sie, bevor Sie mit dem Abtippen 
beginnen, die Zeile POKE43,1: 
POKE44,32:POKE8192,0:NEW 
im Direktmodus ein. 

- Tippen Sie das abgedruckte Programm 
ein (die REM-Zeilen können Sie einfach 
weglasen; sie dienen nur der Über- 
sichtlichkeit des Listings und sind für 
den Programmablauf unreievant) und 
speichern Sie es unbedingt {!) ab. 
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- Starten Sie das Programm nun mit 
RUN. Es wird zunächst getestet, ob Sie 
vor dem Abtippen die obige Zeile ein- 
gegeben haben (die Zeile muß auch je- 
desmal eingegeben werden, wenn man 
den Basic-Loader der Autostart-Routi- 
ne von Diskette oder Kassette lädt; bei 
der eigentlichen Autostart-Routine ist 
dies später nicht mehr nötig). Haben 
Sie die Zeile nicht eingegeben, erfolgt 


eine entsprechende Meldung, und das |. 


Programm stoppt. Geben Sie die Zeile 
dann ein und laden Sie das Programm 
neu. 

- Die Datazeilen beinhalten das zu erzeu- 
gende Maschinenprogramm; es wird 
nun an seinen Platz im Speicher gePO- 
KER. Ist Ihnen beim Abtippen der Data- 
Zeilen ein Fehler unterlaufen, zeigt Ih- 
nen das Programm dieses an und nennt 
die fehlerhafte Zeile. Überprüfen Sie 
diese noch einmal. 

- Sind die Data-Werte fehlerfrei, wird der 
Autostarter nun als reines Maschinen- 
programm mit Basickopf auf Diskette 
oder Kassette abgespeichert. In dieser 
Form ist das Programm erheblich kür- 
zer als der vorliegende Basic-Loader. 
Das spart Ladezeit, und außerdem 


Sompuhe mib 


müssen dann die Data-Werte nicht je- 
desmal neu eingelesen werden. Geben 
Sie also „K“ für Kassette oder „D“ für 
Diskette ein, halten Sie eine Kassette/ 
Diskette bereit und drücken Sie die 
SPAGE-Taste. Das Programm wird nun 
abgespeichert. Geben Sie jetztLIST ein. 
Wie Sie sehen, befindet sich der Auto- 
starter schon im Speicher. Da er mit ei- 
nem Basic-Kopf versehen ist, kann er 
wie ein Basicprogramm mit RUN ge- 
startet werden. 


Um nun ein Basic-Programm mit einem - 


Autostart-Kopf zu versehen, gehen Sie bit- 
te wir folgt vor: 


- Laden Sie den Auto-AUTO-STARTER 


ganz normal mit LOAD ein (bitte nicht _ 


etwa den abgetippten Basic-Loader, 
sondern das gerade generierte Pro- 
gramm). 


- Starten Sie den AUTO-STARTER mit 
RUN. Es erscheint die Meldung „Auto- 
Starter aktiviert“, 


- Laden Sie, nachdem Sie NEW eingege- 
ben haben, das zu behandelnde Basic- 
Programm ganz normal mit LOAD ein. 


- Speichern Sie das Programm jetzt mit 
SAVE ab, wird es automatisch mit ei- 
nem Autostart-Kopf versehen. Der SA- 
VE-Befehl hatfolgende Syntax: SAVE"- 
programmname“,GA. 

Es wird also wie im Normalbetrieb ab- 
gespeichert (GA ist die Geräteadresse 
und lautet für Kassette „1“, für Diskette 
„8"), wobei allerdings zu beachten ist, 
daß der Programmname mindestens 
drei Zeichen lang ist. Der Autostarter 
erzeugt nämlich streng genommen 
zwei Programme, den Autostart-Kopf 
und das eigentliche Programm, und für 


4a 
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den Namen des zweiten Teils werden 
der Einfachheit halber die ersten bei- 
‘den Buchstaben des Programmes ver- 
wendet. 


Später werden die mit Autostart versehe- 
nen Programme mit LOAD“progammna- 
me“,8,1 von Diskette und mit LOAD“pro- 
grammname“,1,1 von Kassette geladen 


tomatisch. 


(das“....1" am Ende darf nicht vergessen 
werden), diese laden und starten dann au- 








































































































10030 DATABE,00,02,80,01,02,A2,02, 451 <129> 
OO REM Bess EEE RER 10032 DATAB4,38,86,30,40,28,87,A0, 796 <30> 
RER <171> 10034 DATA34,B9,F7,03,99,AD,02,88, 953 <172> 
i REM * 100364 DATA10,F7,A&,AE,BE,BB,02,A0, 1094 _ <217> 
* <98> 10038 DATAO1,B1,AF,797,E4,02,88,10, 888 <237> 
2 REM * AUTO-STARTER. 10040 DATAFB,A2,AD,A0,02,86,52,84, 11897 <228> 
FUER DEN COMMODORE 16/11& *  «66> 10042 DATAB3,BE,02,03,8C0,03,03,A0, 632 <187> 
3 REM «* 10044 DATAO1,84,AD,A2,04,A0,03,86, 769 <144> 
*  <100> 1004& DATAFD,84,9E,20,A4,F1,A2,12, 1064 x206> 
4 REM * DIESER BASIC-LOADER ERZEUG 10048 DATAAO,87,8E,02,03,8C0,03,03, 558 <95> 
T EIN MASCHINENPROSRAMM MIT *  <166> 10050 DATAA9,02,85,AB,A6,2B,A4,2C, 892 <156> 
5 REM * BASIC-KGPF AB HEX.1000. VOR 10052 DATAB&,B2,84,B3,Ab,2D,A4,2E, 1044 <242> 
DEM LADEN UND STARTEN EIN: *  <248> 10054 DATAB6,7D,B4,9E,20,A4,F1,4C, 1094 <10> 
6 REM * GEBEN: POKE43,1:POKE44,,32: 10056 DATAO3,87,0,36,B9,50,10,99, 786 <39> 
POKEB192,0:NEW <RETURN> !! *  <255> 10058 DATAF7,03,88,10,F7,A0,5A,B9, 10B4  <213> 
TREM* 10060 DATAB7,10,99,5F,05,88,10,F7, BOS <85> 
*  <104> 10062 DATAA2,5F,A0,05,8E,30,03,8C0, 755 <7> 
8 REM # WRITTEN 1996 BY WAL 10064 DATA31,03,A9,0C,RA0,11,20,B8, 578 <194> 
DEMAR RAAZ (C1/116) * <210> 100646 DATA9O,4C,03,87,93,11,11,20, 571 <251> 
9 REM RBB EE ENENRURNEE N EIE 10068 DATA20,20,20,3E,3E,3E,3E,20, 376 <65> 
EEE III THHII HIN ER E <180> 10070 DATA41 ,55,54,4F,20,53,54,41, 590 <B6> 
10 : <6B> 10072 DATA52,54,45,52,20,41,4B,54, 573 <161> 
i11 : 69? 10074 DATA49,56,49,45,52,54,20,3C, 5597 «152> 
20 BRAPHICO,1 3 PRINT"BITTETSPACENWARTEN 10076 DATASC,3C,30,20,00,00,00,00, 212 <70> 
LSPACE> ..." .  £22> 10100 s <213> 
30 IF PEEK(43) = I AND PEEK(44) = 32 THE 10110 € _RESTORE <247> 
N GOTO 10000 a. 10120 3 FOR T = 4096 TO 4407 STEP 8 : 
40 PRINTCHR$ (17); CHR$ (17) 3 CHR$ (17 <214> ze <175> 
50 PRINT"{DOHN. SPACEIDATLSPÄCEIDIESESTSPA 10130 a <243> 
CEIPROGRAMM{SPACEZYDEN{SPACEIBASIC-SPEIC via FOR1=-0107 £235> 
HER{SPACE}" <129> ia Bean Br <104> 
&0 PRINT" {DOHN SPACEIVERAENDERT ‚,IST{SPAC 10180 ı A = DEC(AS) <127> 
EIES{SPACEINOETIB{SPACEIVORISPACEIDEMISP 10170: P=P+A <233> 
ACEILADENTSPACEI" <57> 10180 : POKE T+1, A <51> 
70 PRINT"(CDOHN SPACEIUND{SPACEISTARTEN{S 1 NEXT I ® <14> 
PACE}IFOLGENDETSPACEFIZEILETSPACEY IMISPACE 10200 : 377 
Z3DIREKT-{SPACE?" <78> 10210 : READ R <71> 
BO PRINT"{DOHN SPACEIMODUSTSPACEFEINZUGE 10220 IF P<> R THEN 10300 <151> 
BEN: " <184> . 
. 10230 3 x87> 
90 PRINT"{DOHN SPACEHPOKEAZ, 1TSPACEIS SP ’ . 
ACE>POKE44 ,32{SPACE}: TSPACEIPOKEBLF2,018 Az z En .. 
PACEISNEWISPACE}" <162> 10220 <118> 
95 PRINT"{DOHN SPACEIDIESTSPACEIISTISPAC 10300 PRINT"{CLEAR DOWN SPACE} IHNENTSPAC 
en DHERENERBERTFER BE E}IST{SPACE}BEIM{SPACE}ABTIPPEN{SPACEIDE 
= er R{SPACEFDATAZEILENTSPACEF" <238> 
97 PRINT” {DOWN SPACEIZEILETSPACEIBITTETS 10310 PRINT"{DOHN SPACEFEIN{SPACEIFEHLER 
PACE3EIN{SPACEIUNDTSPACEZILADENTSPACEIUN tSPACEFUNTERLAUFEN. TSPACE}INCSPACEIZEILE 
DISPACEISTARTENTSPACGEI" SarlE ERYSONY"PEEK(63) +PEEK(M ZIEGE — 4233> 
99 PRINT" {DOHN SPACEISIETSPACEIDASTSPACE 10320 PRINT" {DOUHH SPACEIISTISPALEFEINISP 
3PROGRAMMISPACEINEUTSPACEI!" = END <237> ACEIPRUEFSUMMENFEHLERCSPACEIAUFGETAUCHTT 
we ne SPACE" | <178> 
- „ 
10000 DATA00,4A,10,02,07,9E,34,35, 592 <S1> | KPRUEFENCSPACEISIECGPACEIDIESECBPACH?ZEI 
10002 DATA32,32,20,70,20,3E,3E,3E, 382 <130> LECSPACE} ! "SEND <254> 
10004 DATA20,41,55,54,4F ,2D,53,54, 557 <7> PS Te <198> 
10006 DATA41,52,54,45,52,20,30,30, 534 <101> an Bersiere 
10008 DATASC,20,20,20,20,20,20,20, 284 *97> 10400 PRINT"{CLEAR DOHR SPACEIDIE{SPACEI 
10010 DATA20,20,20,57,52,49,54,54, 506  <140> DATAWERTE{SPAGEISIND{SPACEHRICHTIG{SPACE 
10012 DATA4S,4E,20,31,39,38,36,20, 427 <138> HEINGELESEN. SPACE" I 027> 
10014 DATA42,57,20,20,57,41,4C,44, 515 <32> 10410 PRINT"CDOHN SPACEIDERISPACE RVSON} 
10016 DATA45,4D,41,52,20,52,41,41, 557 <10> AUTOLSPACEI-SPACEISTARTER{RVSOFF SPACE} 
10018 DATASA,00,00,00,00,00,00,00, 90 <211> WIRDESPAGEHNUNTSPACEIALSTSPAGEIREINES{SP 
10020 DATAA2,12,AR0,87,8E,02,03,8C, 762 <121> I re u PER 
10022 DATA03,05,A9,01,A8,A2,08,20, 546 “77. 10420 PRINT"{DOHN SPACEIMASCHINENPROGRAM 
10024 DATABA,FF,A7,02,A2,E4,A0,02, 1164  <42> MEISPACEIMITCSPACE+BASIC-KOPF {SPACEIABGE- 
10024 DATA20,BD,FF,A9,00,20,D5,FF, 1145 <50> CSPALE?" in <62> 
10028 DATAB&,2D,84,2E,A2,8A,A0,00, 817 <217> Sm 
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10430 PRINT"{DOHH SPACEYSPEICHERT. {SPACE 
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: <183> 
3GEBEN{SPACEISIETSPACEIBITTETSPACEIEIN,C { we PRINT" CLLEAR DOWN SPACEIDERTSPACE 
SPACEYOB{SPACEISIETSPACEI" <207> RVSGN}AUTO-STARTER{RVSGFE, SPACE} ISTSPAC 
10440 PRINT"{DOHN SPACEIMITISPACE RVSON} EIJETZTISPACEZIALSISPACEIREINES{SPACEH"  <166> 
KIRVSOFFIASSETTE{SPACEIODERTSPACE RVSONY 10400 PRINT"{DOHN SPACE IMASCHINENPROGRAM 
D{RVSOFFFISKETTE<{SPACEHARBEITEN SPACE}!!! M{ISPACEIMIT SPACE BASIC-KOPF {SPACE ABGE- 
{SPACE}Y" <81> SPACE)" Zuge wa <243> 
10450 GBETKEYBS 2 IF B$C>"K" AND BEC>"D" 10610 PRINT" {DOHN SPACEISPEICHERT ! {SPACE 
THEN 10450 <7> FZUR SPACE ANWENDUNG (SPACEILAEDTCSPACEIM 
10460 GA=B = IF G6$="K" THEN GA=1 <44> ANTSPACEIIHNESPACEY" <217> 
y" <93> ACE}BASICPROBRAMM{SPACEZIUNDTSPACEISTART 
10480 PRINT"{DOHN SPACEILEGENTSPACEISIEL ETISPACEIMITLSPACEN" <b3> 
SPACEYJETZT{ISPACE) EINE iSPACE}YDI SKETTE/KA 10530 PRINT" £{DDHH SPACEYRUN.E IN{SPACEISA 
SSETTEISPACEY" <B4> VE-BEFEHL {SPACE}SPEICHERTTSPACE3DANNTSPA 
10490 PRINT"{DOHN SPACEIEIN{SPACEIUND{SP CEIDASESPACEI" <203> 
ACE+DRUECKENTSPACEISIELSPACEIDIETSPACE R 10640 PRINT"(DOHN SPACEIMOMENTANLSPACEY 
VSON}SPALE{RVSOFFI-TASTEXSPACEI !" <62> M{SPACE2>SPEICHER (SPACE}BEFINDLICHELSPAC. 

10500 GETG$ = IF G$<>" SPACE" THENLO500 <3> EIPRO- SPACE} " <109> 
10510 PRINT" (DOUN SPACE RUSON}IOK! {RVSOFF 10650 PRINT" {DGHN SPACEIGRAMM{SPACEIMITE 

+" «1543 SPACEIEINEMSPACEIAUTO-START-KOPF {SPACE} 

10520 = <123> ABLCSPACEIT !LTSPACEY" <187> 
10530 : <133> 10660 : <7> 
10540 SYS543115 "AUTO-STARTER" „GA <s0> 10670 POKE43,1:POKE44 ,16: POKE45 ,55: POKE4 

10550 POKESS, 1:POKE3I, 16: POKEZ035 56: POK 6,17 <65> 
10560 POKE2034 , 38: 5Y545496 <225> 10490 REM *** PROGRAMMENDE ##* <2i1> 
10570 : <173> 


Kassetteninterface jetzt auch für den A 





Um auch den Besitzern dieser neueren 





Commodore-Computer den Nachbau der 
Schaltung für die Installation eines Kas- 
setteninterfaces zu ermöglichen, hier nun 


Eine weitere, sehr interessante Anwen- 
dung ist sicherlich auch ein Adapter, mit 
dem man eine Datasette mit altem Flach- 
stecker an die neuen, runden Buchsen an- 


schließen kann, oder umgekehrt. Dazu 
hier noch einmal die Belegung des Kas- 
settenports beispielsweise am Commodo- 
re 64: 


die Belegung des Kassettenports beim 
616/116 und plus/4: 





GND 2342968 
+5V 
ee EEE 
Kassettenport bei wen ee ABCDEF 
Draufsicht auf die CASSETTE SENSE ; 
Geräterückseite Kassettenport bei Draufsicht 
Pin Belegung auf die Geräterückseite 
ee 
5 nn Um nun einen Adapter herzustellen, sind | sprechenden Stecker identisch. 
3 Motor folgende Verbindungen herzustellen: Bei der Betrachtung der Frontseite 
1otor der Stecker und der Lötseite der 
4 Pin4 ist am Kassettenport nur ein | Pin am C-16 Pin am C-64 | Buchsen muß man natürlich ent- 
Führungsstift aus Plastik; er wurde 8 _ 1 sprechend umdenken! 
hier der Einfachheit halber mitge- 2 u 2 
zählt 3 _ 3 Die benötigten Stecker und Bauteile kön- 
5 Read 5 =: 4 nen übrigens bei Conrad Electronic 
6 Write 6 E 5 (Klaus-Conrad-Str. 1, 8452 Hirschau) be- 
7 Sense 7 MER 6 zogen werden. 
8 Masse ei 


Wichtig: Beachten Sie bitte unbe- | Nicht weniger interessant dürfte für C-16/ 


Mit dieser Beschreibung dürfte es keine 
Probleme mehr bereiten, die Schaltung an 
den 616/116 oder den plus/4 anzupassen. 
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dingt, daß hier jeweils die FRONT- 
ANSICHT der Buchsen gegeben ist; 
diese ist mit der Lötseite der ent- 


Compube mib 


116- und plus/4-Anwender die Belegung 
der Joystick-Ports sein. Das Umrüsten ei- 
nes Joysticks mit Standardstecker, wie er 
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zum Beispiel an den C-64 paßt, Iohntsich | Zur Verdeutlichung, wie die Pins nun mitdem Joystick zu verdrahten sind, hier der prin- 


auf jeden Falt; denn unseres Wissens ver- 
treibt nur Commodore selbst einen Joy- 
stick, der an den C-16 paßt, und der zeich- 
net sich nicht gerade durch mechanische 
Präzision und Robustheit aus. Im grunde 
ist der Joystick-Port am C-16/116 und 
plus/4 mit dem Kassetten-Port identisch, 
nur die Belegung ist unterschiedlich. Für 
den Anschluß eines normalen digitalen 
Joysticks werden folgende Pins benötigt: 
Joy0/oben - Pini 
'Joyt / unten - 
Joy2 / links - 
Joy3 / rechts - 
Feuerknopf - 
Masse - 





Joystick des C-16 bei Draufsicht 
auf die Geräterückseite 


COLOR 16 


‘Ein. Programm: zur. 
"Erstellun gen 
'Farbkompositioi 






Mit diesem kleinen Maschinenprogramm 
können Sie ohne Vorkenntnisse zu besit- 
zen, die Farbzusammenstellung fremder 


Programme nach eigenem Geschmack verändern. 

Nach dem Eintippen und dem Start des Programmes wird die Ma- 
schinenroutine im Kassettenpuffer abgelegt und der Basiclader 
gelöscht. Dadurch wird kein BasicRAM in Anspruch genommen. 
Es stehen Ihnen nun vier neue Funktionstasten mit folgenden Be- 


deutungen zur Verfügung: 


GTAL + Fi erhöht die Faronummer um 1 


GTRL + F2 erhöht die Luminanz um 1 


CTRL + F3 schaltet um: ab jetzt wird die Hintergrundfarbe verän- 


dert 


CTRL + HELP von nun an kann die Rahmenfarbe verändert wer- 40 


den 


Pin2 | de der vier möglichen Richtungen zustän- 
Pin3 } dig ist, sowie einen oder mehrere Taster, 
Pin4 | mit denen man den Feuerknopf betätigt. 
Pin6 | Ein Pol eines jeden Tasters liegiauf Masse, 
Pin? | während der andere mit dem entspre- 









zipielle Aufbau eines Joysticks: 
„ir. 
———— — — — — — — Button 






Öffnet man einen Joystick, erkennt man 
vier Taster, von denen jeweils einer für je- 


Joystickport des C-64 bei 


chenden Pin verbunden wird. Mit Hilfe Draufsicht auf die Geräterückseite 


dieser Angaben sollte es keine Schwierig- 
keiten bereiten, einen Standardjoystick 
mit einem entsprechenden Stecker sowie 


Für einen Joystickadapter sind folgende 
Verbindungen herzustellen: 


ein wenig Kabel für den C-16-Betrieb um- | Fin am C-16 Pin am 0-64 
zurüsten. Eine Alternative wäre, sich einen 1 _ 1 
entsprechenden Adapter zu bauen. Somit 2 = 2 
könnte ein und derselbe Joystick mit bei- 3 - 3 
den Computern (C-64 und C-16) betrie- 4 - 4 
ben werden. Dazu nun die Belegung des 6 - 6 
Joystickports am C-64: 7 - 8 


Beachten Sie bitte auch hier, daß jeweils die FRONTANSICHT der Ports abgebildet ist. Es 
gilt dieselbe Bezugsquelle wie oben. 


Nach der Initialisierung kann nun ein beliebiges Programm (z.B. 
Tronicprogramm wie „Shaolin“ oder „Raketenstart“) von Diskette 
geladen werden. Während das Programm läuft, kann man dann 
die Farben beliebig verändern. Die Routine läuft mitallen Program- 
men, sofern sie nicht den Interruptvektor verbiegen. 

Mit RUNSTOP-RESET/X wird die Routine ausgeschaltet, SYS 934 
reaktiviert diese wieder. 
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0 REMREERRBRRIRRRERRSSROBEIHH CS LOF> 
1 REMESRSBERRRRRRBRRBBRRRRR RE <170> 
2 REMKHRHNRR COLOR 1% Kr <I40r 
Z REMHRRBERRSRRSRRRRBAR << 1727 
4 REMaRRREHH (C} 19785 BY KRRKENR 7 C157> 
5 REMaRRRRRH TIM SCHLUETER autark (D> 
& REMa#KH#RE* POLLENWEG 3 ERKENNE 7 <204> 
7 REMaRerea* 457& BERGE ar... <A4B> 
8 REMKRRERERTNHTRH NH EHRE «177> 
9 REM EEE ERS 175 
10 1=-857: DO=:READAS$: IFAF="TS"THENEXIT;ELS 
EPOKEI „DEG (A$) = I=I+1:LO0P <IO> 
20 DATA&0,AD,43,05,609,04,DO,F8 1745 
30 DATAA&,C6,E0,04,DO,0E,A4,EO 2415 
DATACB,CO,10,0D0,02,A0,00,84,E0,18 <114> 
50 DATA?9O,0F,E0,05,D0,1B,A4,E1 x227> 
50 DATACB,CO,08,D0,02,A0,00,84,E1,45 <87F 
70 DATAE1,OA,OA,OA,0A,29,F0,05 <88> 
80 DATAEO,A4,E2,99,15,FF,60,E0 <77> 
90 DATAO6,DO,05,99,00,95,E2,60 <133> 
100 DATAEO,03,00,04,A9,04,85,E2. <112> 
110 DATA&0,78,49,B3,80,14,03,49 <74> 
120 DATAOS,8D,15,03,50,60 «57> 
130 DATAA4,E3,88,84,E3,D0,07,A0 <35> 
140 DATAOF „84 ,E3,20,5A,03 <25I> 
150 DATAA4C,ÖOE,CE,TS x121> 
140 POKE227,2:5Y5934:NEW <200> 
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tips & tricks 
Nach zahlreichen Leseranfragen haben 
wir uns entschlossen, dem Gommodore- 
Manko „Steuerzeichen“ zu Leibe zu rük- 
ken. 


Der erste Schritt bestand in der Veröffent- 
lichung des C-16-Checksummers mit 


Klartext-Ausgabe. Obwohl wir seit d 
zum Achte Umgang mit. Ihrem Zetpunke der Vrffentihung ki 
6 er ee 

ompu er RE Bildschirm. 


Die nachfolgende Tabelle zeigt auf, durch 
welche Tasten die einzelnen Steuerzei- 


Tabelle zur Erstellung von chen erzeugt werden. Beachten Sie dabei, 


daß es nur innerhalb des Anführungszei- 
chen-Moduses möglich ist, Steuerzeichen 


reversen Steuerzeichen '| zu erzeugen. 


Bewahren Sie diese Tabelle 
Endlich sind wir in der Lage, etwas zu veröffentlichen, was der | gut auf, Sie können sie immer 
User für die Eingabe der Programme dringend benötigt. wieder gebrauchen. 


Twps E Tricks. 








CLR —— SCHIFT+CLEAR/HOME -——- U 


CLEAR-HOME 


COMMODORE +2 


ee ee N N 


-- COMMODORE 


-- EONTROL + 3 


-- CONTROL + 4 
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tips & tricks 





Dieses Programm demonstriert die guten 
Grafikmöglichkeiten des C-16-Basic. Ob- 
wohl dieser Beitrag eigentlich keinen 
praktischen Wert besitzt, läßtsich das Pro- 
gramm zum Beispiel ohne weiteres als 


-  Ton-Clock - Eine analoge Uhr auf dem 16 


Party-Gag verwenden. 

Nach Eingabe der Zeit stellt der Computer 
eine grafisch anspruchsvolle Uhr auf dem 
Bildschirm dar, wobei selbst der Sekun- 
denzeiger abgebildet ist. 


Da die Anzeige nicht vollkommen syn- 
chron mit der eingebauten Uhr läuft, muß 
eine „Justierzahl“ eingegeben werden. 
Der ideale Wert dürfte im Bereich der Zahl 
100 liegen. 


1 REM #*# {C) R.LANGNER ne 

4 COLOR4,15,0:CBLORO,15,0:CDLOR1,8,5:605 
UBS70:VOLS 

82 FORH=TTO720STEP5 

85 IFX>300THENX=O 

90 CIRCLE1,160,100,2,50,277,83,H 

95 I1FY>ZI6OTHENY=& 

100 FORM=YTOX+6&05TEP& 

105 CIRCLE1,160,100,1,70,276,84,M-6 

1907 IFS1>90THEN20O 

110 IFM=e4THENL2O 

112 IFM=18ATHENRESTORE1910:ELSE11& 

114 GOSUB18900: 51=81+39:GOTDO170 

116 IFM=9I4THENRESTORE 1940: ELSE118 

117 G0SUB1800: 51=51+20:50T0170 

118 IFM=27&THENRESTORE1730: ELSE200 

119 GOSUB1800:51=581+59: G9T0170 

120 IFH=0THENK=720 

125 IFH>340THENH=H-3A0 

150 BDSUB1800: FORG=1TOH/3SO0: SDUND1 ,571,17 
s FORP=1 10330: NEXTP: NEXTO: S1=S1+H/5+78 
170 M=aY 

200 FORS=INT (51) TO3SS4STEP12 

300 CIRCLE1,160,100,0,70,276,84,5 

500 CIRCLE1,160,100,1,70,276,84,M-6 

sSS5 CIRCLE1,160,100,2,50,277,853,H 

560 CIRCLEO,1&0,100,0,70,276,84,5:NEXTS 
&00 FORZ=1T0200:3NEXTZ 

650 CIRCLEO,160,100,1,70,276,84,M-6 

651 PRINT" £UP}", TI$ 

655 A=(PEEK (3077) -49) #6:51=A+X0 

660 IFS1=>&0THENSI1=81-60 

730 IFS1<40RSI >45THENS1=0 

770 Y=Y+&4:NEXTM 

775 X=X+60: T=T+S: X0=X0+B/10 

IFXO= >40 THENX0O=X09-&0 

800 CIRCLEO,160,100,2,50,277,83,H:NEXTH 
859 T=5:60T0892 

870 PRINT"{CLEAR DOHNI SPACE2ZYGEBE{SPACE 























<2> JEIN:® <236> 
890 INPUT"{DQHN3 SPACE2>1.JUSTIERUNGTSPA 

<200> CE? (1-150) "5 B <52> 

<40> 870 INPUT"CDOHN2 SPACEZI2.ZEIT{SPACEY (6- 

<242> STELLIG) "3 TI$ <21> 

<177> 900 Ti=(PEEK (3494) -AB) #*104PEEK (3495)-48 <218> 

<96> 905 Yi=(PEEK (3496) -AB) #10+PEEK (3497)-48 X<42> 

<47> 910 S2=(PEEK (3498) -48) #1O+PEEK (ZAIN-A8 <11I> 

<122> 920 IFS2<ASTHENF24 <147> 

<225> 922 Yi=Y1+1:152=52-45 <147> 

<200> 923 51=360/60*52:6010925 <139> 

<39> 924 51=360/60#52+90 <178> 

<207> 925 Y=360/60#Vi1+& <29> 

<150> 950 I=INT ((Y-6) /60) #5: X=1#12 <229> 

<71> 370 T=360/12#T1+1: X0O=INT ( ((X+60) -Y)+30)/ 

<219> 8: SCNLLR <21> 

<238> 1000 GRAPHIC1 ,1:FORI=97T099: CIRCLE1,160, 

<148> 100,J3NEXTJ <185> 

<163> 1052 CIRCLE1,160,100,55PAINT1,160,100 <203> 
1100 BOX1,157,15,163,29,,1:2B0X1,197,26,2 

<58> 01,36,30,1:2B0X1,115,30,125,34,60,1 <45> 

<102> 1250 BOX1,226,55,230,65,60,1:B0X1,87,59, 

<220> 97,63,30,1:B0X1,231,97,245,103, ,1 <180> 

<1A7> 1400 BOX1,75,97,89,103,,1:B0X1,223,138,2 

<6> 33,142,30,1:B0X1,90,134,94,144,60,1 <17> 

<132> 1600 BOX1,195,167,205,171,60,13E0X1,118, 

<53> 164,122,174,30,1:B0X1,157,171,163,185,,1 <250> 

<149> 1650 FORV=4T0360STEP6: CIRCLE1,160,100,0, 

<155> 95,340 ,20 ,V:NEXTV: RETURN <214> 

<227> 1800 DD; READK,M3SOUNDI ,K,M <226> 

<40> 1830 FORW=1TD200:NEXTW <65> 

<195> 1840 LOOPUNTILK=9:RESTORE: RETURN <223> 

<12> 1900 DATAS16,20,383,20,453,20,169,30,0,0 

<213> ‚169,20,453,20,516,20,383,30,0,0 <120> 

<149> 1910 DATAS16,20,383,20,453,20,169,30,0,0 

<159> „169,20,453,20,516,20,383,30,9,0 <176> 

<238> 1930 DATAS16,20,383,20,453,20,169,30,0,0 

<239> „169, 20,453,20,516,20,383,30,0,0 <150> 
1940 DATAS16,20,383,20,453,20,169,30,9,0 <3> 


EEE EEEEESESEEREEG BE FESSI ER TGETESERERGEEET UGS FORATFIEGEFTESSETFESTBERN 


SOUNDHELFE 


programmierung für den C-16 


Eine wesentliche Erleichterung zur Sound- 


Mit diesem Soundhelfer wird die Sound- 
Programmierung des C-16/116 kinder- 
leicht. Einfach eine Melodie auf den Zif- 
ferntasten (1-8) spielen (3 Oktaven stehen 
zur Verfügung, die Tondauer kann nach 
Belieben variiert werden - Tasten (H/D) 
bzw. (+/-)), den einprogrammierten Kas- 
settenrekorder einschalten und die ge- 
spielte Melodie aufzeichnen. Ein falscher 
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Ton ist kein Problem, denn der Kassetten- 
rekorder läßt sich Ton für Ton vor- und zu- 
rückspulen. Natürlich kann man die auf- 
gezeichnete Melodie jederzeit anhören 
oder auch löschen. 

Doch der eigentliche Clou des Program- 
mes ist folgender: 
Gefällt die aufgezeichnete Melodie, so ge- 
nügt ein Tastendruck und die Eingabe ei- 
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ner Zeilennummer, um die Melodie ins 
Programm (DATAS) zu übernehmen. Ist 
das geschehen (es dauert schon ein paar 
Sekunden), muß man sich entscheiden, 
ob man noch eine Stimme einspielen, oder 
das Programm beenden will. Nach Pro- 
grammende steht nur noch die eingege- 
bene Melodie und ein passendes Abspiel- 
programm im Speicher. Der Soundheifer 
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löscht sich also selbst, und die program- 
mierte Melodie kann sofort in einem Spiel 


























sollte man die Data-Zeilen, in denen die 
Melodie stehen soll, in Tausenderschritten 


tips & tricks 


Stimme 3 - 4000 ff, 




















Einzelheiten über Funktion und Zusam- 


0.4. verwendet werden. Allerdings ist | wählen. menhänge des Programmes benötigen 
auch ein „normales“ Beenden, ohne Lö- | Zum Beispiel: Sie nun nicht mehr. 
schen, möglich. Stimme 1 - Zeilen 2000 ff Das Motto heißt: 
Beim Einspielen von mehreren Stimmen ! Stimme 2 - 3000 ff Probieren geht über Studieren. 
10 REM BB SHHHHRRRHIHIRIRIRHIIISIHHIHIHIIIHHER <121> E>" <1i6> 
20 REM * SOUNDHELFER I *  <6> 390 CHAR1 ,23,17,"{SPACE4} ": CHAR1 ,23,17,8 
30 REM ER EEIEEREEEEEERRERENERN <141> TR$ IK) <S5o> 
40 REM * COPYRIGHT BY * <i16> 400 TRAF S10:REM ** HAUPTSCHLEIFE ** 15973 
50 REM HHBBHEISHIHRIEIHHRIRIBHIRIHIIHI HIHI NH: <16i> 410 GETKEY A$: A=ASC (AS) -4B: IF A=3SYTHEN 
60 REM # BERNHARD LAUER - WUERZBURG * <210> S10 35> 
70 REM MHRHBBRRRSHHRRBBHIBIAHBIEIHIEIHENEH NEN <zi8l> 420 IF A$="+" THEN J=1+1:60T0 740 <96> 
80 REM = * 19784 * * <38> 430 IF A$="-" THEN J=J-1:G0OTO 740 <130> 
90 REM RRRAHBBBBAHEIRIRBHHIBIHIIBIIHIHIHIHI HIN <201> 440 IF A$="H" THEN D=D/2:60T0 780 x31> 
73 REM # VOR DEM ERSTEN RUN MUSS DAS * 450 IF A$="D" THEN D=D+D:G0TO 780 <215> 
* PROGRAMM UNBEDINGT ERST AB- #* <226> 460 IF A>B THEN 410 <31> 
94 REM ** GESPEICHERT WERDEN ! xx <Al> 470 SDUND 5,T%(A,J),D <67> 
95 3 i . <15%> 480 IF K$=" {RVSONFEIN{RVSOFFF"THENCH (K) = 
96 REM * NOTENWERTE + £32> TAA,IIETDIKI=DiK=K+1: IFK>BBTHENKS=" VOLL 
97 ; <155> ":CHARL1,15,9,K$ <10> 
100 DATA 1697,262,345,383,453,516,571,596 <113> 490 CHAR1 523,17," {SPACEF}"SCHARI,25,17,8 
110 DATA 596,643,685,704,739,770,798,810 <42> TRE IK) <150> 
120 DATA 810,854,954 ,844,881,897,911,917 <iB5> 500 G0OTD 410 <37> 
130 DIM T%(8,3) „CX(88) „TD(88) : VOLB:K=0 <249> 509 : <56> 
140 DATA" {SPACEISQOUNDHELFERTSPACEIT" "== S10 REM #* HAUPTMENUE #%* <147> 
s2==S=2zmmmmmmemee ana ggg nenne lt 232» il > <x58> 
150 DATA" TSPACEI#BELA-SOFT{SPACEIBAHISPA 520 GOSUB 1016 <al> 
cE}" j £&37> 530 CHAR1,5,5, " {RYSONIWERVSOFF} TEDERGABE 
160 POKE1344 ‚64: PRINTCHRS$ (27) CHR$ (77) ©2032 TSPACEF+" <217>° 
170 RESTORE=FORJ=1T03:FOR I=1 TO 8: READ 540 CHAR1,5,7,"{RVSOHIDIRVSOFFIATASTSPAC 
TACI„IIENEXTI,J :J=1 <12> EIAUSGEBEN" <151> 
180 READ SO8,U$,C0% <145> 550 CHAR1,5, 7," {RVSONIN{RVSOEFFOCHMALES. 
190 GOSUB 1010 : REM ** TITEL ** x26> PACEFEINSPIELEN{SPACEY" <89> 
199 : <1> 560 CHAR1,5,11, "{RVSONFSTRVSOFFIPULENTSP 
200 REM #* BILD 1 #* «232> ACEID. {SPACEIKASSETTETSPACE> (VOR/REUCK)"  <20> 
201 ; <3> 570 CHAR1,5,13," {RVSONILIRYSOFF}OESCHENt 
210 CHAR1,0,7,""3 INPUT "STIMMEISPACEI<1/ SPACEID. TSPACE}KASSETTE" <220> 
Z/3>E {ISPACEF"SS = PRINT <24> 580 CHAR1,5,15, "{RVSONYZ{RVSBEFIURUECKTS 
220 INPUT "TUONDAUERTSPACEI<SINNVOLL: {SPA PACE}" <42> 
CEI1-ZO>LSPACEI"3D: PRINT <160> 5970 CHAR1,5,17, "{RYSONFE{RFSOFEINDE” <91> 
230 INPUT "KASSETTENFUNKTIONTSPACEIST/N> 600 GETKEY A$ <64> 
TSPACEI" INS <230> &i0 IF As="W" THEN 690 <175> 
240 IF K$="VOLL" THEN 260 <95> 620 IF A$="D" THEN 1050 <55> 
250 IF IN$="J" THEN K$=" {RVSONYEIN{RVSOF 630 IF A$="N" THEN 2909 <105> 
F}"zELSE K$=" CSPACEIAUSTSPACEN" <70> 640 IF As="5" THEN 850 <159> 
260 PRINT=PRINT"KASSETTE: {SPACEI" „K$ <191> #50 IF A$="L" THEN 800 <77> 
270 FOR I=1 TO 200:NEXT <74> 660 IF A$="Z" THEN 190 <198> 
279 ı <B2> 670 IF AS=Z"E" THEN PRINTCHR$ (27) CHR$ (76) 
280 REM #*#= BILD 2 / HAUPTSCHLEIFE ##* <107> :POKE1344 , 128: END <159> 
281 = <84> 680 GOTO 600 <239> 
290 GOSUB 1010 <86> 687 : <237> 
300 H$=STR$tIJ) :CHAR1,0,5,"OKTAVEISPACE2 690 REM ** WIEDERGABE **+ <79> 
IHLSPACE>: TSPACEY" CHART ,15,5,H$:CHAR1,2 691 : <239> 
5,5, "[+/-2" <26> 700 IF K=0 THEN 190 <45> 
310 H$=STR$(D) SCHAR1 ,0,7,"TONDAUER: {SPAC 710 CHAR1,5,5,"{RVSON SPACEYWIEDERGABE{S, 
E}"zCHAR1,15,7,H$: CHAR1,25,7,"[H/DT" <250> PACE RVSOFF}" <252> 
320 CHAR1,0,9, "KASSETTE: (SPACEI"SCHARL,1 720 FORI=0 TOK-1:SOUNDS,CHII),TDIIIS:NEXT <38> 
5,9,K$ <173> 730 6010 530 <40> 
330 CHAR1,0,20, " {SPACEIWISPACEI=TSPACEIW 740 REM #* EINTRAG 1 #* <188> 
EITERISPACE}" <78> 750 IF J>3 THEN J=3 '£99> 
340 CHAR1,7312,"ERUSOHY cn nn rn er 760 IF J<i THEN J=1 x91> 
ES ENENL Renz £23> 770 H$=STRS&(J) SCHAR1,15,5,H$: GOTO410 <56> 
350 CHAR1,7,13," 111121131141 SI 161 171181 780 REM *#* EINTRAG 2 ** Mi <240> 
"1 <218> 790 H$=STR$ {INT (D#100+.5)/100) sCHAR1,15, 
360 CHAR1,7,14, "N u ht Lt kt hd ht ld FSNTSPACE7I":CHAR1,15,7,H$%: GOTO410 <104> 
{RVSOFF}" <61> 797 5 
370 CHAR1,7,15," 0: WIE FE AI 800 REM ##* KASSETTE LOESCHEN #%* <19> 
" <237> 801 = <94> 
380. CHAR1,0,17,"KASSETTENZAEHLWERK: {SPAC 810 GOSUB 1010 <96> 
4 
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820 CHAR1 ,0,7,"tSPACEIKASSETTETSPACEILOE 
SCHEN{SPACEI" sPRINT:PRINT 

830 INPUT VCSPACEISICHERTSPACEI<I/N>TEPA 
CEY"3JNS IF UN$S<>"IJ"THEN 520 

840 FOR I=0 TO K-1: CA(D=0 : TD(I)=O:NEX 
T :sK=0 :G0T0 520 

849 ı 

850 REM #»# SPULEN #%%* 

851 > 

850 GOSUB 1010 

‘870 CHAR1 ,0,5, "VOR/RUECK-SPULEN" 

880 CHAR1,0,7, "BITTE{SPACE>GEBENtSPACEIS 
IECSPACEIEINTSPACEIUMTSPACEIWIEVIELETSPA 
CEINOTENTSPACE +" 

890 CHAR1,0,8, "VORTSPACEIODER SPACE} ZURU 
ECKGESPULT{SPACEIWERDEN{SPACE}SOLL. {SPAC 
E} n 

300 CHAR1 ,0,9, "2. B. [SPACEI+STSPACEZI={SR 
ACEYSTSPACEINDTENTSPACE}VORSPULEN" 

910 CHAR1,0,10,"2.B. TSPACEY-STSPACEZI=tS 
PACEFS{SPACEINDOTENTSPACE} ZURUECK SPACEIS 
PULEN.” 

920 CHAR1 ,0,13, "KASSETTENZAEHLWERK: {SPAC 
E} » 

930 CHAR1,23,13, "{SPACE43 "= CHAR1,23,13,5 
TR$ IK} 3 

940 CHAR1,0,15,"": INPUT SP ık=K+5P :IF K 
<o THEN K=0 

950 IF K>BB THEN K=8B sks="VOoLL" 

960 IF K<87 THEN K$=" {RYSONFEINERVSOFEFY" 
770 CHAR1 ,0,13,"KASSETTENZAEHL WERK: TSPAC 
£E}> [13 -. 
9780 CHAR! 23,13, "CSPACE43 "SCHAR1,23,13,5 
TRS$S (K} 

990 FORI=0T0350:NEXT :GOTO 510 

9997 3 

100G REM ** TITEL ** 

1001 2 

1010 PRINTCHRS$ (147) : COLORI „5: COLORO,1:E0 
LOR4 , 1: CHAR1 ,0,0,U$5 CHAR1,9,1,50$ 

1020 CHAR1,0,2,UF 

1030 CHAR1,0,22,U$: CHAR1,10,23,00$:CHAR 


























1,0,24 ,Uf 

1040 COLOR1 , 14: RETURN 

1045 : 

1045 REM ** DATAS AUSGEBEN ** 
1047 : 


1050 GOSUB 1010 

1060 CHAR1,0,7, "TSPACEIDATASTSPACEIAUSGE 
BENISPACEY" 

1070 CHAR1 ‚0,9, "DIETSPACEFAUFGEZEICHNETE 








LSPACEIMELODIE {SPACEFWIRD{SPACE}NUNTSPAC, 





EIN" 
1080 CHAR1,0,10,"DATAZEILENTSPACE}ABEBLE 


GT." 
1090 CHAR1,0,13," ZURUECKTSPACEI=TSPACEIO 
TSPACE>" 
1095 CHAR1,0,17,"DAS{SPACEIDAUERT {SPACE 
EINEN{SPAGE>MOMENT {SPACE3 ! !" 

. 1100 CHAR1,0,11,"" 
1110 INPUT "AB{SPACEIZEILENNUMMERTSPACE} 
tISPACE}I >20001SPACEI) ISPACEI" ZN :IF ZN= 
Oo THEN 510 
1120 IF ZN<2000 THEN PRINT" (UP2}":GOTD11 
10 
1130 PRINTCHR$ 27) CHR$ (76) 
1140 COLOR1,1 
1150 PRINT" {CLEARY"; 
1160 1=0:FOR JJ=1 TO ti 
1170 PRINTRIGHT$ (STR$ ZN) „LEN(STRE(ZN))- 
DI "DATA"S 
1180 FOR II=1 TD 7 
1190 Z$=RIGHTFISTRFICH (DI) „LEN (STREICHL 























<169> 
<193> 


<247> 
<142> 
<252> 
<144> 
<146> 
<18> 


x104> 


<212> 


x<50> 


<&137> 
<118> 
<208> 


<AB> 
<103> 
xB0> 


<168> 


x2> 

<I0> 
<36? 
<98> 
<38B> 


x190> 
<173> 


<58> 
«<231> 
<83> 
<109> 
<85> 
<81> 


<50> 


<118> 


*54> 
<146> 


<97> 
x21> 


<154> 


<143> 
<93> 
<9> 
<179> 
s16> 


<180> 
<164> 
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Y))-1) <S5b> 
1200 TDIDI=INT(TDCDI#10+.57 7/10 x212> 
1210 Z1$=RIGHT$ (STRE(TD<TI) „LEN(STRECTDE 
I)1’7-1) <150> 
1220 PRINT Ze" "Zi" ,";s1ieltl <ı197> 
1230 NEXT II . <193> 
1240 Z$=RIGHTE(STRFCCH III „LEN STRECCHEI 
YY3)-1i) <108? 
1250 TDID=INT(TD{II#10+.53 7/10 <b> 
1260 Z1$=RIGHT$ (STRSCTDCIY) „LEN STRELTDC 
I»9-1) <200? 
1270 PRINTZ$" „"Z1%; I=1+1 <196> 
1280 ZN=ZN+10:NEXT JJ <150> 
1290 PRINT"GOTO{SPACEI 1330" <x84> 
1300 POKE 239,0 : POKE 1319,19 <154> 
1310 FOR TP=1320 TO 1332 :POKE TP,13 :NE 
XT :FPOKE 239,14 <246> 
13209 PRINT" {YP2Y"=END <1353> 
1330 RESTORE 14 O:READ 508% ‚U$,CD$ <164> 
1340 GOSUB 1010 <11&4> 
1350 CHAR1,0,7, "DATAS{SPACEISINDTSPACEHT 
NCSPACEIDENTSPACEIGEWLIENSCHTEN {SPACE} ZEI 
LEN” <3>+ 
1360 CHAR1,0,8, "ABGELEGTTSPACLEIWORDEN.” 573 
1370 CHAR1,0, 10, "SOLLISPACEFEINETSPACEIW 
EITERE{SPACE?STIMMELSPACEIANGEFUEGT{SPAC 
E}WER-" <74> 
1380 CHAR1,0,11,"DENISPACE}?" <49> 
1390 CHAR1 ‚0,12, "WENN{SPACEINICHT ‚ TSPACE 
3 IST{SPACE3DASTSPACEHPROGRAMM{SPACEFBEEN 
DET" ; <113> 
14300 FOKE239,0 <2al> 
1410 CHAR1,0,13,"": INPUT "(J/"sJN$E IF 
JN$="N” THEN GOTO 1420 :ELSE RUN <79> 
1420 PRINT" {CLEARIDELETETSPACEIFS-1440": 
PRINT=PRINT:PRINT"LIST“ x63> 
14330 POKE1319, 19: POKE1320,13: POKE13521,13 
:POKE239,3 <43> 
1440 END «37 > 
1445 : x228> 
1447 : <230> 
1450 REM #* KLEINES EINLESE + ABSPIEL- 
PREGSRAMM <BB> 
1451 : <234> 
1440 DIM C% (88,3) ,TD(88,3) :VOL 8 <100> 
1470 INPUT SWIEVIELETSPACEISTIMMEN: {SPAC 
E}"sS »IF S>3 THEN S=3 <227> 
1480 FOR J=i1 TO S:FÜR Ii=-0 TO B7 :READ CH 
1,9) ,1D(1,9 sNEXTI,J x4> 
1490 FOR 1I=0 TO 87 :IF TDt1,1}>0 THEN 50 
UND 1,C%11,19,TD(1,2 <106> 
1500 IF TD(1,2)>0 THEN SOUND 2,CHt1,29,T 
D(1,2) <78> 
1510 IF TD{1,9>0 THEN SOUND 2,C%t11,5),T 
D(1,3) <163> 
1520 NEXT <1177 
1530 s «57> 
1535 REM »* AB HIER STEHEN MELODIEDATAS 263 
1537 ı 657 
3000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 26? 
3010 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <36> 
3020 DATAO,0,050,0,0,0,0,0,0,0,0,0,0,0,0 *46> 
3030 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 56? 
3040 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <ah>r 
3050 DATAO,0,0,0,0,0,050,0,0,0,0,0,0,0,0 <76> 
3060 DATAO,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0 <B> 
3070 DATA0,0,0,0,0,0,0,0,0,0;0,0,0,0,0,0 <767 
3080 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 *1075 
3090 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <117> 
3100 DATA0,0,0,0,0,9,05,0,05,0,07050,0,0,0 <1277 
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Vorgeschichte: 


Im Dezember 1985 erwarb Achim Lie- 
beck, der Autor des folgenden Program- 
mes einen. C-16-Computer und mit dem 
Seikosha GP-500VC den entsprechenden 
kompatiblen Drucker. Nun sollte mit den 
neu erworbenen Geräten endlich etwas 
produktives geleistet werden, um da- 
durch, die im Bekanntenkreis des Autors 
vorherrschenden Vorurteile gegenüber 
Homecomputern abzubauen. 


4 Leider fand Achim Liebeck kein brauch- 


bares Programm, um sein Vorhaben in die 
Tat umzusetzen. Ein Textprogramm, daß 
er aus einem Buch abtippte, enttäuschte 
Ihn so, daß er sich entschloß selbst unter 
die Programmautoren zu gehen. 

Dieses G-16-Programm erfüllt nach Mei- 
nung des „neuen“ Autors und nach Über- 


Zum Programm allgemein: 


Das Programm benötigt einen Speicher- 
platz von ca. 5000 Bytes. Um eine hohe 
Ausnutzung des Speicherplatzes zu errei- 
chen, hat der Autor während der Textein- 


| gabe, eine ständige Abfrage des Spei- 


cherplatzes eingebaut, um dadurch das 
Schreiben von bis zu 264 Zeilen zu er- 
möglichen, was gleichbedeutend mit ei- 


Hier eine Aufstellung: 

Pfund-Taste = Komma 

Shift-Pfund-Taste = Doppelpunkt 

Key 2 = Shift/Space 

Key 2 = 10*Shift/Space 

Key 3 = Shift/Space & Return 

Key 4= @(Zeichen für doppelte Zei- 
chenbreite) & Return 

Key 5 = +(Zeichen für reserve Zeichen- 
darstellung) & Return 

Key 8 = läßt den Bildschirm wieder les- 
bar werden 


Für Besitzer eines anderen Druckertyps, 
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programme 





prüfung unserer Programmierabteilung folgende Bedingungen: 


% schnelle Eingabe durch „Input“ Anweisung 

% Führung durch das Programm ohne ständiges Blät- 
tern in der Anleitung 

%* verschiedene Schriftarten in einem Brief 

*Löschen, Andern und Einfügen von Einzelzeilen 
und Textblöcken 

%* möglichst größte Nutzung des kleinen Speicher- 
platzes 

%x automatische Blattnummerierung 

%* Drucken der gewünschten Kopienanzahl 

% automatischer Blattvorschub 

%* Anzeigen des freien Speicherplatzes 

x einfaches Speichern und Laden 

%k schnelles Blättern in gewünschter Richtung durch 
den geschriebenen Text 


nem Umfang von vier Druckerseiten ist. 
Dies ist deshalb möglich, weil sich das 
Programm nicht nach der Anzahl der ge- 
schriebenen Textzeilen richtet, sondern 
nach dem vorhandenen Speicherplatz. 

Da eine Texteingabe mit Get-Befehlen für 
einen geübten Schreibmaschinenbesitzer 
zu langsam ist, wurde die Texteingabe mit 
Input-Anweisungen durchgeführt. Dabei 


ma und Doppelpunkt, falls diese nicht zwi- 
schen zwei Anführungszeichen stehen, 
nicht angenommen werden. Aus diesem 
Grund wurde die Pfund- und die Shift- 
Pfund-Taste in Komma und Doppelpunkt 
umfunktioniert. 

Für das „echte“ Komma und den Doppel- 
punkt erscheinen jetzt Gursorblöcke. 
Auch die Key-Tasten wurden umfunktio- 


stieß der Autor auf das Problem, daß Kom- ! niert. 

hier nun die entsprechenden Steuerco- d = Seitennummerierung 
des. ko = Kopie 

CHR$(10) = Zeilenvorschub | = Zeilenanzahl 
CHR$(14) = doppelte Zeichenbreite S = Zeilennummer 
CHR$(15) = Standardzeichen t = Pokeaddresse 
CHR$(16) = Blattrand x = Zeilennummer 
CHR$(17) = Groß-/Kleinbuchstaben Ww = warten 

CHR$(18) = Negativdruck z$ = gewähltes Zeichen 


b1$-b3$ = Umwandlung von ” & 


Variablenliste ws = gewählte Funktion 
t$ = Text k = Kopienzahl 

fre(q) = freier Speicherplatz E) =d 

u$ = Überschrift v = Blattvorschub 

a = Anzahl der anzuzeigenden Zeichen | b. = Buchstabennummer 
u = Unterbrechung a = Pokewerte 
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Programmablauf 


Nach dem Starten des Programms er- 
scheint der Textname mit dem Menü. Das 
Programm unterteilt sich in 7 Unterpro- 
gramme. Diese werden jetzt aufgezählt 
und näher erklärt. 





wählt die verschiedenen Unterpro- 
| gramme auf 


. Text schreiben = > 





% Eingabeende = schreiben eines Punk- 
tes in eine Leerzeile. 

% Bei jedem Aufruf des Unterprogramms 
wird der freie Speicherplatz angezeigt. 

% Eingabe von max. zwei Textzeilen. 

% Durch Input-Anweisung alle Tasten 
wie in normaler Input-Anweisung ver- 
wendbar (z.B. Cursortasten usw.). 

*% Statt Return für Leerzeile zu drücken, 
Key 3 eingeben. 

*% Für Fettschrift Key 4 in Leerzeile einge- 
ben. Die folgende Zeile wird in Fett- 
schrift gedruckt. 

® Reverse-Schrift=Key 5 sonst wie Fett- 
schrift. 

$® Key ierzeugt ein Leerzeichen (für ein- 
gezogenen Textanfang benutzen). 

% Key 2 erzeugt 10 Leerzeichen (für grö- 
ßere Schritte innerhalb einer Zeile 
praktisch). 

3 Bei Textim Speicher und drücken von 

Taste 2 vom Menü aus: 
Auflisten des vorhandenen Textes 
(Verlangsamung durch Gomodore Ta- 
ste möglich), Sprung zurück ins Menü 
durch Run-Stop. Nach Auflisten weite- 
re Texteingabe möglich. 






22 3. Textlisten 0 


*%* Anzeigen des vorhandenen Textes zu 
je 10 Zeilen. 

ss Blättern durch 'w’ für weiter und ’z’ für 
zurück möglich . 

% zusätzliche Unterprogramme zum An- 
dern des Textes 





a =ändern; nach drücken von ’a’ Einga- 
be der Zeilennummern, derzuänderen 
Textzeilen; danach Anzeigen der auf- 
gerufenen Textzeilen, und Ändern des 
Textes mit dem Cursor, oder Eingabe 
eines neuen Textes, hinter dem Frage- 
zeichen. 


| = löschen; Eingabe der Zeilennum- 
mern des zu löschenden Textes. Text 
wird gelöscht, und nachfolgender Text 
wird um die gelöschten Zeilen nach 
oben geschoben. 


e = einfügen; Eingabe der Zeilennum- 
mern, zwischen denen Leerzeilen ein- 
gefügt werden sollen. 


Ab der zuerst eingegebenen Zeilen- 
nummer bis zur zweiten Zeilennum- 
mer werden nun Leerzeichen ge- 
schrieben; der zuvor dort stehende 
Text wird nach unten geschoben. 


# bei größeren Zeilensprüngen während 
des Blätterns; ’a’ eingeben, Zeilen- 
nummer wählen (z.B. 200) 2 x Return 
drücken. 

* zum Menü zurück mit 1 oder Run-Stop 


R = SA, Text drucken. 5 





Vorbereitung: 

x Drucker anschalten oder anschließen 

% oberer Papierrand mit oberer Farb- 
bandkante auf gleiche Höhe stellen 
(wichtig für Papiervorschub und Sei- 
tennummerierung) 

*% Kopienanzahl eingeben 

*% Blatinummerierung wählen (ja oder 
nein) 

*% bei ja Eingabe der Seitennummer 

*% bei nein beginnt der Druck 


Drucken 

®% es wird automatisch an allen 4 Seiten 
ein Blattrand gelassen, so daß dieser 
bei der Texteingabe nicht zu berück- 
sichtigen ist 

*® nach 66 gedruckten Textzeilen; 1Leer- 
zeile; wenn ja gedrückt Seitennumme- 


Sompuhe mib 





rierung und Vorschub zur nächsten 
Seite 
wenn Text komplett gedruckt; Vor- 
schub zur nächsten Seite und nach 
Umwandlung der Kommas und Dop- 
pelpunkte zurück ins Menü 

*% während des Druckens von Textzeilen 
ist ein Unterbrechen mit ’s’ möglich, 
ohne daß der Text gelöscht wird, das 
Biatt muß dann wieder neu justiert 
werden 








5, Text löschen. 


Durch Drücken der Taste 5 wird der vor- 
handene Text gelöscht, und es stehen wie- 
der 7000 Byte zur Verfügung. 





>>, Text speichern 


Speichert den Text auf Kassette ab. Als 
Textname wird jedesmal ’text’ benutzt. 





507. Text laden 


Es wird ein Text von Kassette in den Com- 
puter geladen. Textname wie unter Punkt 
6. 


Sicherungen‘) 


Es sind einige Sicherungen in das Pro- 
gramm eingebaut worden, um einen ab- 
bruchfreien Programmablauf zu gewähr- 
leisten. 


a) Werden mehr als 264 Seiten eingege- 
ben, springt das Programm in das Menü, 
und zeigt "Memory full’ an. 

Das gleiche geschieht, wenn der Spei- 
cherplatz unter 150 Byte sinkt. Die Unter- 
programme „Text schreiben“, „Text einge- 
gen“, begrenzt auch „Textändern“ können 
dann nicht mehr angesprochen werden. 


b) Bei Drücken der Taste 6 und ohne im 
Speicher befindlicherr Text wird „Kein Text 
vorhanden“ angezeigt, und das Pro- 
gramm springt in das Menü. Das gleiche 
geschieht bei Unterprogramm 3 (Text li- 
sten). 
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c) Befindet sich beim Aufrufen des Unter- 
programms 7 ein Text im Speicher, er- 
‚ scheint „Text im Speicher“, und das Pro- 
gramm springt ins Menü zurück. Damit 
wird der Text vor einer möglichen Über- 
schreibung gesichert. 


d) Bei Eingabe von mehr als 2 Zeilen Text, 
springt das Programm in das Menü zu- 
rück, ohne den Text zu löschen. 

e) Wurde der Drucker vergessen einzu- 
schalten, springt das Programm ins Menü, 
ohne den Text zu löschen. Dieser muß 








programme 


kann. 


dann aber erst gespeichert und neu gela- 
den werden, bevor man diesen drucken 


Bricht das Programm trotz aller Vorsichts- 
maßnahmen ab, kann der Bildschirm mit 
Key 7 wieder lesbar gemacht werden. 





100 SENCLR: CLR: SOSUB1330 
110 DIMT${246) 

120 FORX=OTOFS T$CX)=""SNEXTSX=0: 

130 TRAP1SO: Z4="0" 2 VOLS: SOUNDI „897,5: IFF 
RE {BJ <1SOTHEN140:ELSEISO 

140 SENELR:CHAR1 ,13,12,""\EMORY{SPACEIFUL 
L":FORW=1T02000: NEXT 

150 SENELR=:PRINT 

160 Us="{SPACES? „„ISPACES> „„TSPACETI, 518 
PACE23 „„{SPACESI , 5" 

170 PRINT" {SPACEZI g guys ytSPACEZI gs ya ss 
PACEZ> „ „ISPACEZY 5 „ÄSPACEZI zo an nn" 

180 PRINTU$:PRINTUS$ 

190 PRINT" {SPAGES? „„TSPACESI y ya 13 TSPACES 
Fyyyn TSPAGESF 2 „" 

200 PRINTU$:PRINTUS 

210 PRINT" {SRACES? ,„ISPACESY ya 13 SPACE 
33 5, TSPACE2} , ,„ {SPACES3 „,„": PRINT 

. 220 IFZ$="4" THEN&00: ELSE23O 

230 CHAR1,7,11, "##RtSPACEINT/ -TSPACE103 
ELI{SPACE}###" 2 CHAR1,7,13, "### {SPACE} EX 
T{SPACEISCHREIBENTSPACEILZITSPACEIRRe" 
240 CHAR1,7,15,"###{SPACE3| EXT{SPACEILIS 
TEN{SPACE4>T3I{SPACEI®#R":CHAR1,7,17," 8% 
#{SPACEI| EXT{SPACE3DRUCKENTSFACEZILAJTSP 
ACE)RaR" 

250 CHAR1,7,19,"#*#{SPACE}| EXT{SPACEILOE 
SCHEN{SPACE23 ESITSPACEI RR" 

260 CHAR1,7,21,"###{SPACE>| EXTSPACEISPE 
ICHERN{SPACE+LOITSPACEI RR" SCHAR1 57,23," 
KRRr {SPACE} EXTISPACEILADENTSPACESILTIESP 
ACEyann" 

270 GETZ$: IFZ$="2"THEN3FO 

280 IFZ$="3"THENA48O 

290 IFZ$="4"THEN15SO 

300 IFZ$="S"THEN10O 

310 IFZ$="6&"THEN1120 

320 IFZ$="7"THEN1190 

330 6070270 

340 GETZ$: IFZ$="W"THENS1O 

350 IFZ$="L"ORZ$="E"ORZS="A"TTHEN1000 

340 IFZ$="Z"THENA7O 

370 IFZ$="1"THENISO 

380 GOTOI340 

390 SCNELR: IFX>OTHEN1270 

400 PRINT" {RVSON SPACE6S>-INGABEENDE={SPA 
CEI##SPACEI TINKTISPACE} (. ) ISPACEIRRLSPA 
CE6 RVSOFF>" 

410 PRINTFRE (0) 3" | VTES{SPACEIFREE" 

420 X=X+12F=F+1: INPUT" {SPACES>"3T$CX) 
430 IFF>26ATHENLAO 

449 IFT$(X)="."THENI15O 

450 IFFRE(BI<1SOTHEN130 

460 GOTO420 

470 X=X-20: G0T0470 

480 X=0 

499 IFX<OTHEN480 

500 IFFRE(@) <1SOTHENLSO 

510 SENCLR: CHARO ,0,2,"":FORA=1TD10 

520 IFX=F-1THENSIO 

530 X=X+1: IFF<2THENS7O 

540 PRINTX;TAB(6) T$(X) 
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x16> 
<148> 
<171> 


“176> 


<241> 
<199> 


<229> 


<57> 
x66> 


<121> 
<86> 


<104> 
<111> 


<13> 


<11> 


<245> 


<192> 
<12> 

<162> 
<121> 
x87> 

x19797> 
<36> 

x157> 
<110> 
<2356> 
<210> 
<185> 
<200> 
<138> 


<114> 
<92> 
<157> 
<180> 
<890> 
<1577 
<20> 
<95> 
<457 
<1350> 
x207> 
<B> 
x10> 
<35> 
<175> 


550 IFLEN(T$ (X) ) >3STHENS60: ELSEPRINT 
560 NEXTA: GOTOS90 

570 CHAR1,10,12, "KEIN{SPACEI EXTISPACEIV 
ORHANDEN" 

580 FORU=1T02000: NEXT:60T0150 

590 PRINT" {RVSON SPACEINE-1HTSPACEIWE=UR 
{SPACE> ZU=2# SPACE AE=ARTSPACEIHLOE=L#{SR 
ACEYEIN=E#{SPACE2 RVSOFF}":6010340 

&00 CHAR1,8,12,"*{SPACE}RUCKERTSPACLEIAN 
GESCHLOSSEN{SPACE}?{SPACE}"CHAR1,8,14," 
"2 INPUT"#CSPACEI-OPIEN"3K 

&10 CHAR1,8,16,"#{SPACE} ILATTNUM. {SPACE} 
J/n® 

620 GETW$: IFWE="J"THENGSO 

630 IF WE="N"THENA6O 

640 GOTO620 

650 CHAR1,8,18,""2 INPUT"#{SPACEIVEITEISP 
ACE}";D 

640 CHARi 8,20, "#{SPACEI-RUCKERSTOP= "5°" 
670 IFK<OTHEN400 

680 DPENI1,4,7 

690 FORKO=0TOK:S=D:L=0 

700 FORV=1T02:PRINT#1:NEXT 

710 Bi$="\":B26=", "ıB36="p":B4g="," 

720 FORX=OTOF-1 

730 GETZ$: IFZ$="S"THENSBO 

740 L=L+1: IFL=47THENF203 ELSE7&0 


























750 L=1 

760 IFTSCKI="TSHIFTSPACE}" THENBSO 

770 IFTSCXY="@"THENGIO 

780 IFTSCXI="+"THENSSO 

790 GSOSUB1290 

800 PRINT#1 ,CHRFCLSI "ISPACESY"ZTFEXI SGOT 
0850 


B10O X=X+1:GDSUB1290 

820 PRINT#1 „CHR&(1SI "ESPAGESY"CHRS (LAY TS 
(X) s5OTOS&LO 

830 X=X+1:G60SUB1290 

840 PRINT#1 ,CHRS C1SI "{SPACESY "ZCHRFCISIT 
$(X):GOTO940 

850 PRINT#1 

860 NEXTX=FORV=1T070-L: IFV+L=58ANDWE="T" 
THENGOSUB9ISO: ELSEPRINT#1 

870 NEXTV:NEXTKO 

880 CLOSE1: Z8="1" 


890 Bi$=" ,":B2$="\":B3$=": "2 B4s=0p" 

900 FORX=OTOF-1:505UB1230 

910 NEXTX:GLTO1I0 

920 PRINT#1:L=L+1 

930 FORV=1T05: IFV=1ANDWS=" J" THENGOSUBISO 


SELSEPRINT#1 

749 NEXTV:GOTO750 

7590 PRINT#1 ,CHRS (14) "35-555 "—" 
960 S=5+1:RETURN 

970 FORX=ATOE: PRINT" {SPACESI"ZTSIX) 
7809 INPUT" LSPACESI"ZTECX) 

970 NEXTX: X=A-7:G0T0490 

10009 INPUT" #EILENNUMMERN{SPACEIVON" SA: IN 
PUT"{SPACEI4IBIS";E 3 
1010 IFE>F-10RA>F-ITHENI000 

1020 IFZ$S="A"THENIT7O 

1030 IFZ$="L"THEN1040: ELSE1080 
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<235> 
<1853> 


<97> 
<1235> 


<159> 


<236> 


<24> 
<50> 
<155> 
<205> 


«<2> 
<254> 
<241> 
<37> 
<i> 
<14> 
<54> 
<230> 
<86>7 
<5> 
<51> 
<231> 
<94> 
<197> 
<114> 


<135> 
<89> 


<207> 
<109> 


ı33> 
<77> 


<103> 
<ı158> 


x19> ı 


2277 
<31> 
<12> 
<227> 


“96> 
<B0> 
<9> 
<78> 
x87> 
<x2397> 
<ab> 


<5> 
<777 
«255> 
<185> 


programme 








1040 FORS=ETOASTEP-1:F=F-1: FORX=STOF <191> „B,1)=B2# <25> 
1050 T${X)=T$1X+1) <126> 1310 IFMID$(T#EtX} „B, 1) =BS$THENMIDS TECK) 

1060 NEXTX=NEXTS: IFTSCXI =". "THENTS OO =T ‚B,1)=B4$ <133> 
SHIFISPACE}" 2131> 1320 NEXTB= RETURN “25> 
1070 X=A-7:60T0499 <ı12> 1330 POKES6 „40: POKES2 ,60: POKESS,0:POKES1 

1086 FORS=ATOE <79> „0: POKE45299 ,60: POKEs5298,0 <193> 
1090 IFF>264THEN140 <75> 1340 KEYi,"tSHIFTSPACEI" <148> 
1100 FORX=FTOSSTEP-1: TF(X+)=TFCXI :NEXTX 1350 KEY2,"SHIFTSPACELOF" <18> 
sF=F+1: T$(X+1)="CSHIETSPACEY"SNEXTS <73> 1360 KEYZ,"tSHIFETSPACE}"+CHR$ (13) <2497 
1110 X=A-7:G0T0490 <52> 1370 KEY4, "8" +CHR$ (13) <37> 
1120 SCHNELR <76> 1380 KEYS,"+"+CHRFLIF ' <200> 
1130 IFF<1THENS7O x228> 1390 KEYB, "PDKE65298,0"+EHR$ (15) “74> 
1140 OPEN1,1,2, "TEXT" £37> 1400 RESTORE1480 <215> 
1150 PRINT#1,F <24> 1410 FORT=819T0848:- READA: POKET,A:NEXT <137> 
1160 FORX=1T0OF-1 <164> 1420 5v5819 <22> 
1170 PRINT#1,T$1X):NEXTX <158> 1430 READA <164> 
1180 PRINT#1:CLOSEL:GOTO1SO <29> 1440 FORT=0T08:READB: IFB=-1THEN1430 <194> 
1190 SCNCLR «146> 1450 IFB=-2THENRETURN «70> 
1200 IFF>1THEN1210;ELSE1220 <110> 1440 POKE1SS6CO+A#8+T,B <75> 
1216 CHAR1,10,12, "1 EXTISPACE> IMISPACEIW 1470 NEXT:GOTO1430 <158> 
EICHER" : SOTOSBO <91> 1480 DATA1642,0,189,0,212,157,0,60 <A2> 
1220 DPEN1,1,0,"TEXT" <105> 1490 DATA189,0,213,157,0561,189,0,214,15 

1230 INPUT#1,F <84> 7 <145> 
1240 FORX=1T0OF-1 <244> 1500 DATAO,62,189,0,215,157,0,63,202,208 

1250 INPUT#1,T$CX):NEXTX <218> ‚229,96 <197> 
1260 CLDSE1:60T0150 <71> 1510 DATA2B,0,0,0,0,0,24,24,48,-1 <37> 
1770 FORX=1T0OF-1 <18> 1520 DATA105,0,0,24,0,0,24,0,0,-1 <209> 
1280 PRINTX3TAB(S) TECXI SNEXT:K=X-1: FF 1530 DATA44 ,255,255,255,255,255,255,255, 
:60T0400 <161> 255, -1 <213> 
1290 FORB=1TOLEN(TF(X)) <9> 1540 DATASB,255,255,255,255,259,255,2595, 

1300 IFMIDF{T$CX) „B,1) =B1FTHENMIDFTFCH 255,72 <20> 


Mit diesem Programm ist.der Benutzer in der Lage, seine Ein-und Ausgaben zu. 
buchen; um am Monats: bzw. Jahres-Ende feststellen zu können, wo nun das 


Gehalt bzw. der Lohn geblieben ist. 















\ 


Führung _von 
Haushaltskonten 


Die einzelnen Konten sind in den Zeilen 
1030-1120 als Data namentlich aufge- 
führt. Sie können vor dem Start des Pro- 
gramms nach eigenen Wünschen geän- 
dert werden. 

Das Programm erklärtsich nach dem Start 
durch das Menü. Bei Neubeginn ist „B“ 
einzugeben. Mit „K“ kann die Konten- 


It 


m 


| 





| 















Anschließend * BIN Sem 


: i = 
wird der Betrag eingegeben NISEa IS 
USW. RES 










N ZEN 





Übersicht aufgerufen werden. Nach Ein- 
gabe von „B“ ertöntein Signal, das auf die 
nächste Frage aufmerksam macht. Da- 
nach wird das aktuelle Datum und das 
Konto abgefragt. Nach Eingabe der Konto- 
Nummer wird die Konten-Bezeichnung 
auf dem Bildschirm angezeigt und nach 
der Zahl der Eingaben pro Konto gefragt. 





52 


Nach Eingabe der Konten und Beträge 
kehrt das Programm zum Menü zurück. Es 
empfiehlt sich dann, die Daten erst auf 
Cassette zu saven. Als Filename wird das 
Datum verwandt. Für Floppy-Besitzer 
müßten die OPEN- und CLOSE-Befehle 
verändert werden. 

Zur Überprüfung der Eingaben kann mit 


GSompuhe mib 


—— 








„G“ die graphische Darstellung jedes Kon- 
to’s für 1 Jahr aufgerufen werden. Wird 
nach Aufruf der Graphik ein „E” eingege- 
ben, kann man gezielt ein Konto aufrufen 
und anschließend mit der Leertaste zum 
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Programme 


man wieder zum Menü. 
Bei Eingabe von „D“* werden die Konten mit dem Drucker ausge- 
druckt. Die weiteren Möglichkeiten ergeben sich aus dem Menü. 


| nächsten Konto weiterschalten. Nach.Eingabe von „L“ und „1“ 
beginnt die Auflistung der graphischen Darstellung beim 1. Kon- 
to. Mit „R* kann man ein Konto zurückschalten. Mit „Z“ gelangt 












































20 REM *CBM C-16/C-116& + DRUCKER 1520%* <35> 470 BE=BE+B(TI) <79> 
30 REM #R.-E. MUELLER <88> 480 NEXTI <245> 

: 50 DIM 6$(40) „M$(12) ‚At550) ,D$ (12) <216> 500 PRINT" {DOHNZ}" : INPUT"WEITER(J/NI "3 Y 
40 PRINTCHR$ {27)+"R" <152> $: IFY$="J* THENSIO <131> 
70 GOSUB1030 <129> 510 INPUT"DATEN{SPACEISPEICHERNTSPACE? (3 
80 PRINT" {CLEARY"=PRINTTAB{10) " {RVSON>KO /NI2 "3 Y$ der <107> 
NTENFUEHRUNG{RFSOFF} "PRINT <54> = En Da > 
so PRINT"NEU-AUFSTELLUNG{SPACEI} (B) "SPRI a 540 PRINT" ELEARD"LPRINTTABC2) « cavsom»au 

. -U ICHT (KONTO/JAHR) "PRINT <170> 
100 PRINT"NEU{SPACEFEINGABEN{SPACEI2} (N) u ee ee NEE 
s " we {SPACEFNICHT {SPACEIVORHANDEN! ! ! {RVSOFF}" 

Ba PRUNTSPRRINE IBOREBSRUSBRRENTSERERTIT <121> :SOUND1 ‚985, 20: G0SUB790: PRINT" {CLEAR}" <51> 
120 PRINT: PRINT"KONTO/JAHRESUEBERSICHT(S 360 PRINT"KONTENSTANDTSPACE> VOM" 5D13"."5 
PACE2>(E)" <226> D2;"."3D3 M <133> 
130 PRINT:PRINT"STATISTIK-BRAPHISCHTSPAC . 370 Z=01 M=0ı INPUT"KONTO: ";K <245> 
— R 2 u MM +1: <20> 
Denn BE ET ESS £19> ae DE ALHERLSAIDI IDEE NEL TEIEAG) <13> 
re a u <120> 
nn DATENTSPACEISAVENTSFACET <206> 620 K$=B$ (K) ı 22=2721#100: Z2=INT (Z2#100+. 
160 PRINT=SPRINT"DRUCKER-AUSGABE TSPACEI} ( 5) 7100 <77> 
py" <173> 630 IFK=37 ORK=38 THENPRINT" {RVSON}"KS:P 
170 PRINT:PRINT"ENDE{SPACE203 (F}" <110> RINT"EINNAHMEN=" ,Z" {SPACE}DM" :GOT0650 <142> 
180 PRINT: INPUT" {SPACE}";Y$: IFY$="N" THE 640 PRINT” {RVSON}"K$:PRINT"GESAMTAUSGABE 
N320 <101> N=" 3 Z"{SPACEIDMISPACE}I=" 3: PRINTZ2"X" <245> 
190 IFY$="B" THEN270 <131> 650 PRINT" {DOHN23" 3 INPUT"WEITERLJ/NYE "5 Y 
200 IFY$="J" THENS40 <186> $: IFY$="J" THENSAO <175> 
210 IFY$="K" THENGOSUB1400 <160> &60 GOTOBO <31> 
220 IFY$="E" THEN1490 <47> 670 END <32> 
230 IFYS="G" THEN1850 <45> &80 INPUT"DATEN{SPACEISPEICHERN (J/ND 2 "5 Y 
240 IFY$="D" THEN1270 <19> $ <170> 
250 IFY$="39" THENS1O <a> 690 IFY$="N" THENBO <161> 
260 IFY$="F" THENPRINT"CCLEAR DOHN6 RIGH 700 PRINT=PRINT" {RVSON>FILENAME: "Di", "D2 

' T14)*ENDE*":END <7> ”,"D3" <56> 
270 IF D1>0 THEN PRINT“ <RVSONIDATENTSPAC 710 INPUT"HIERCSPACEIWIEDERHOLEN: "3DA$,D 
E}SIND{SPACE3VORHANDEN! ! {RVSOFF3":FORI=1 B$,DC$: F$=DAS+". "+DB$+" . "+DC$ <30> 
T02000: NEXTIsGOTOSO <250> 720 OPEN1,1,2,+F$ <133> 
280 SOUND1 „985,20: PRINT" {CLEAR}" = INPUT"T 730 PRINT#1,D13" ,"3D2;",";D3 <222> 
DOHN RYSON>NEUAUFSTELLUNG{SPACEIDER{SPAC 740 FORI=2T0550 <60> 
E}KONTENFUEHRUNG (J/N) "3 Y$ı PRINT <140> 750 PRINT#1,A(T) <15> 
290 IFYS="N" THENSO <16> 760 NEXTI <14> 
300 IFD1>OTHEN SOLNDI ,985,50:PRINT" {DOHN 770 ELOSE1:60T080 <17> 
2 RVYSONYKONTEN{SPACEIWERDEN{SPACEIGELOES 780 END <143> 
CHT! ! {RVSOEE}Y" SRUN <106> 790 INPUT"DATEN{SPACEILADEN(J/N) "zY$ <119> 
310 GOTO380 <142> 800 IFY$="N" -THENBO <16> 
320 PRINT" {CLEARY" PRINT" {RVSON}ZÜSAETZL 810 INPUT" {RVSONIFILENAME: {RVSOFEF"3F$ <69> 
ICHETSPACE3BUCHUNGEN{RVSOFFF "PRINT <166> 820 OPEN1,1,0,+F$ <222> 
330 SDUNDi „785,205 INPUT" {RVSON+DATEN{SPA 830 INPUT#1,D1,D2,D3 _ <137> 
CEILADEN (J/NI ="; V$ <39> 840 FORI=2T0550 <161> 
340 IFY$="J" AND D1>O THEN PRINT" {RVSON} 850 INPUT#L,A(T) <96> 
DATEN{SPACEISIND{SPACE} VORHANDEN ! ! {RYSOF 8640 NEXTI <115> 
F}"zFORI=1T02000:NEXT1:60T0380 <i6&> 870 CLOSEI <107> 
350 IFY$="J" AND Di=0 THENGDSUBB1O <137> 8580 RETURN <i> 
360 IFY$="K"THENSOSUB1400 <55> 890 END 22535 
370 IFD1=0 G60TO 270 <205>. 900 IF M=1 THEN L=40 <191> 
380 PRINT: INPUT" {RVSON SPACE>DATUM(TT,MM 910 IF M=2 THEN L=80 <237> 
„IIIT) z {RVSDEF}";D1,D2,D3: PRINT <222> 920 IF M=3 THEN L=120 <181> 
370 INPUT"KONTO: "3K:K$=6$ (K) PRINT" {RYSQ 930 IF M=4 THEN L=150 <231> 
NI'K# <85> 740 IF M=5 THEN L=200 = <199 > 
200 INPUT"MONAT:";M <116> 950 IF M=& THEN 1L=240 <249> 
410 GOSUBFOO <234> 940 IF M=7 THEN L=280 <43> 
420 K$=B$ (K) :N$=M$ (M) : D=K+L <190> 979 IF M=8 THEN 1L=320 <11> 
430 PRINT" {RVSONI"KS,N$ <129> 97980 IF M=9 THEN L=360 <61> 
440 INPUT"WIEVIELETSPACEIEINGABEN: "sE <248> 990 IF M=10 THEN L=400 <34> 
450 IF E>10 THEN440 <69> 1000 IF M=11 THEN L=440 <89> 
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Programme 


1010 IF M=12 THEN L=480 - 

1020 RETURN 

1030 DATA ANSCHAFFUNGEN, ARZT ‚BASTELN,BEK 
LEIDUNG/R , BEKLEIDUNG/U 

1040. DATA BUECHER 

1050 DATA FACHZEITSCHRIFTEN,FAHRKARTEN,F 
OTO/FILM/VIDEO, FRISEUR 

1060 DATA GESCHENKE ‚HEIZUNG ‚HAUSHALTHILF 
E,KAFFEE „KINDER 

1070 DATA KRANKENKASSE „MIETE 

1080 DATA PAKETE/DDR ‚RAUCHWAREN , REPARATU 
REN, RUNDFUNK ,RUDOLF 

1090 DATA SONSTIGES,SPAREN,SPENDEN,SPIRI 
TUOSEN, STEUERN 

1100 DATA STROM, TELEFON 

1110 DATA ULRIKE „URLAUB,VEREINSBEITRAG,V 
ERSICHERUNGEN ,WAESCHE 

1120 DATA WIRTSCHAFTSGELD, ZEITUNG ,EINNAH 
MEN (GEHALT) „EINNAHMEN (SONST) „KURZREISEN 
1130 FORI= 11039 

1140 READ G$(I) 

1150 NEXTI 

11640 DATA JANUAR FEBRUAR ,MAERZ APRIL „MAI 
„JUNI „JULI „AUGUST ‚SEPTEMBER ‚OKTOBER 

1170 DATA NOVEMBER , DEZEMBER 

1180 FORI=1T012 

1190 READM$(I) 

1200 NEXTI 

1210 DATA JA,FE,MA,AP,MA,JU,JU,AU,SE,OK 
NO,DE, 
1220 FORI= 1T012 

1230 READD$ (I) 

1240 NEXTI 

1250 RETURN 

1260 END 

1270 IFD1=0 THEN PRINT" IRVSONYDATENTSPAC 
EINICHT {SPACE} VORHANDEN!!!" SOLND1 „985,2 
0: 60SUB770 

1280 K=0: PRINT" {RVSON}DRUCKER-AUSGABE (KO 
NTEN/JAEHRLICH® 

1290 OPEN1,& 

1300 PRINT#1,Di”."D2"."D3 

1310 PRINTEL 5" Te 





1320 Z=0:M=0:K=K+1: IFK=40THEN1380 
1330 FORI=0T011 
1340 M=M+1:GOSUBFOO 
1350 Dek+_: Z=Z+AtD) :K$=6$ K) 
1380 NEXTI j 
1370 PRINT#1 „USING"======== 4444.47"; K$ 
„2: 60701320 
1380 CLOSE1:G60OTOBO 
1390 END 
1400 SOUND1 „985,20: PRINT” {CLEAR} "SFORI=1 
TO14:PRINTIZG$ CI) =NEXTI 
1410 FORI=1T05000: NEXTI 
1420 PRINT" {CLEAR}" sSODUND1,785,20: FORI=1 
5T029 
1430 PRINTI;G$ (TI NEXTI 
1440 FORI=1T05000: NEXTI 
1450 PRINT" {CLEAR} " :SOUND1,785,20:FÜORI=3 
OT03F 
414540 PRINTI5GS(CI) =NEXTI 
1470 FORI=1T05000: NEXTI: PRINT” {CLEARY"ER 
ETURN 
1480 END 
1490 IFD1=0 THENPRINT:PRINT" {RVSONYDATEN 
{SPACEINICHT {SPACEI VORHANDEN! !!":SOLNDI, 
985 ,20: GDSUB790: PRINT" {GLEAR}" 
1500 PRINT* CCLEAR}" : INPUT"KONTO: ";K 
1510 INPUT"AB{TSPACEIWELCHEM{SPACEIMONAT= 
".p 
E} 
1520 PRINT" CLEAR}"=PRINTTAB (2) " TRYSOH>M 




















v4 


<144> 
<141> 


<52> 
<160> 


<x125> 


<x1&> 
<26&? 


<205> 


<1177> 
<213> 


<105> 


<“132> 
<B0> 

<252> 
<150> 


x102> 
<45> 
<89> 
<58> 
<Z00> 


<242> 
<109> 
<80? 

<240> 
<116> 
x112> 


<242> 


<67> 
<108> 
“313 


<211> 
<123> 
x209> 
x5> 
<1> 
<105> 


<177> 
<117> 
<243> 


<75> 
<172> 


<207> 
<191> 
<202> 


<197> 
<221> 


<7090> 
<77> 
<190> 
<155> 


<x105> 


Compuhe mi 


ONAT" „TAB(15) " {SPACEIDMLSPACE}" „TAB(24)" 
"SPRINT 

1530 M=P-1:D=0:6=0 

1540 FORI=PTO12 

1550 M=M+1:G0SUB700 

1560 DeK+L:6=37+L 

1570 IFA(G)=0 THENZA=0:60T01590 

1580 ZA=A(D)I /A(G) #100: ZA=INT (ZAR100+.5)/ 
100 

1590 PRINTUSING"=H####.4#";M$ (1) „A(D) „ZA 
1600 NEXTI 

1610 K$=6$(K) 

1620 PRINT" {RVSON}"K;K$: PRINT=PRINT 

1630 INPUT"WEITER(J/N)2 "5 Y$: IFYS="J" GOT 
01490 

1640 GOTOBO 

1650 IFDI1=0 THENPRINT:PRINT"DATEN{SPACE} 
NICHT {SPACE}VORHANDEN! ! !"3 SOUND1 ,985,20: 
GOSUB770: PRINT” CCLEAR>" 

1660 INPUT" {RVSONFEINZELNTSPACEIOD. LAUFE 
ND(E/L) = {RVSOFFY" 3 Y$ 

1670 IFY$="L" THEN 1700 

1680 PRINT" {CLEARI"SPRINTTAB (7) " {RVSONYU 
EBERSICHT{SPACEIF . TSPAGEIEIN{SPAGEI JAHR 
DOUN23" 

1690 X$="0"2XX$="0": INPUT"KONTO: "5 K:B0TO 
1740 

1700 PRINT" {CLEAR}" 2 PRINTTAB(7)" {RYSONYU 
EBERSICHT {SPACEIF . LSPACEFEINTSPACEI JAHRE 
DOHN2 RUSOFF>" 

1710 X$="0":XX$="0" 

1720 IFDi=0 THENPRINT:PRINT" {RVSQN}DATEN 
{SPACEINICHT {SPACE} VORHANDEN! ! !"3SCLUNDI, 
985,20: GOSLIB770: PRINT" {CLEAR}" 

1730 K=k+1 























-17409 IFK=40 THENSO 


1750 D=0:E=0:M=0:EE=0 

17&0 PRINTTAB (10) "{RVSONY"K;G$ CK) 

1770 FORI=1T012 

1780 PRINTD$(TD)5 

1790 M=M+1:605UB900: D=K+L 

1800 E=A<D) /100:E=INT(E#1+.5)/1 

1810 EE=A(DI/10:EE=INT (EE#rI+.5)/1 

1820 IF A(D)I<350 THENGOTO2029 

i830 IF AtD)=0 THENEOTOLB7O 

1840 IF AD) >3900 THEN E=30 

1850 FORJ=1T0E 

1940 X$=" „"aPRINT" „"4:NEXTJE IFACDI >3900 

THENPRINT INT(A(DY)3 

1870 PRINT:NEXTI 

1880 PRINT" CSPACEZHTTTTTTTTITEITTTTTTTTT 
" 


MTMITTTTTHT 

1890 PRINT" {SPACEZH {SPACEIH {SPACE IS 
PACE4» {SPACE4| {SPACE4}| TSPACE4}| SPACE 
y. 

1900 IFX$=" „"ANDXX$="#" THEN1950 

1910 IFX$=" 4" THEN1930 

1920 IFXX$="#" THEN1940 

1930 PRINT" (SPACE2Y „LOO{SPACEISOOTSPACE} 
1000£SPACEI 1SOOTSPACE?20O00LSPACEI25001SP 
ACE>3000{SPACE}IDM" :GOTO1970 

1940 PRINT"{RVSON SPACE23#1OTSPACE2ISOLS 
PACE2}10O{SPACEZ}Y1SO(SPACE2Y2001SPACE2Y2 
SOLSPACE2IS00{SPACE2>DM" :GOTO1970 

1950 PRINT" {SPACEZI „1001SPACEISOOLSPACE} 
1000{SPACE> 1500TSPAGEIZOOOTSPACEIZSOOLSP 
ACE>3000TSPACEIDM" 

1960 PRINT"CRVSON SPACE2I#IOLSPACE2ISOLS 
PALE23100{SPACEZ>1S0TSPACE23Z0O0TSPACE2Y2 
SOLSPACE233001SPACEZ}DM" 

1970 GETE$: IFE$="" THEN1F70 

1980 IFE$="Z" THENSO 

1990 IFE$="R" THEN K=K-2 














<175> 
<210> 
<43> 

x216> 
<119> 
<172> 


<225> 
<223> 
<90> 
<14> 
<169> 


<19> 
<247> 


<151> 


<219> 
x196> 


x971> 


<7> 


<25> 
<14> 


<145> 
<245> 
<197> 
<x1997> 
<118> 
<149> 
<39> 
<Bo> 
<180> 
S251> 
4972 
<104> 
<137> 
<x2> 


s226> 
<12> 


<10> 
<180> 
<204> 


<40> 
<Z242> 


<77> 


<109>- 


x185> 


x67> 
<207> 
<208> 
<AB> 
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2000 IFES="E" 
2010 GOT01700 
2020 IFAtDI=O THEN 2060 
2030 IFA(DIY<20 THEN2080 
2040 FORL=1TOEE 


THEN1&80 


Nach dem Starten des Programmes er- 
scheinen das Titelbild, eine Einleitung und 
eine Auflistung der Funktionstasten mit 
ihrer Belegung. Ist dies erfolgt, wird man 
zuerst nach der Nummer, der zu belegen- 


programme 


<11> 2050 XX$="#": PRINT" "5 :NEXTL <i118> 
<33> 20560 PRINT=NEXT <167> 
<537? 20709 GOTB1830 <1297 
<“90> 2080 XX$="#"3RB=A(D) SRB=INT (RB) +1: FORJ=1 

x167> TODE: PRINT"<S"RB5 = NEXT: GOTO1870 <254> 


 Key-Caller 


KEY-CALLERistein besonders für Anfänger geeignetes An wendungsprogramm 
und dient zur LETIRIOLSENSCHLLIELTOLARLLELEST, Befehle und Fünktionen:; [0 [7:7 
des öfteren benötigt werden, definieren Pell-T 


den Taste befragt und danach welchen 
Befehl diese erhalten soll. Daraufhin er- 
scheint ein Menü mit einer Auflistung der 
Möglichkeiten, wie der Befehl erscheinen 
kann. Anschließend wird die komplette 


Definition angezeigt. Zum Abschluß fol- 
gen dann Abfragen, die über das Been- 
den, Löschen, Neustarten, Belegungswie- 
derholungen oder Abspeichern des Pro- 
grammes entscheiden. 


REMHRRRHSSHSHRRRIBIIRIEIHIHIENHIENE 
REM#® KEY-CALLER C16/116& * 
REMIHRRHEISHERBRHRSRIIERHHHIE REICH 
REM# WRITTEN 1986 BY * 
REMSHHSSSHRRISETHRISHNSIGIERRENEN 
REM#* BERND WOLK * 

70.REM#®* ZUR WALDBUEHNE 52 * 

80 REM#* 4470 MEFPEN {EMSI + 

90 REMHRRRBRIHHRRAHRSERHTSHIISENEN 

100 SENÜELR:COLORO, 1:COLOR4,1:COLOR1,2:60 


REM 

REM* 1. SEITE(KEYS JETZTSTAND) * 

REMIRUURERURITFRTF TR NR NN N EHEN 

voL 8 

READO „W,E,R 

SOUND1 ,0,5 

SUUND1,W,5 

SQUND1 ,E,5 

SOUND1,R,5 

SOUNDI1,R,S5 

PRINTTAB (9) "{RIGHT. ELASHONREHRREEE 
#88 {FLASHOFFE}" 
230 PRINTTAB(9)"{ELASHON RIGHT ELASHON}® 
{ELASHOFF, FLASHONIKEY-CALLER{ELASHOFF SP 
ACE FLASHONI*CELASHOFF}Y" 


240 FPRINTTAB(F)"{RIGHT FLASHONI#TELASHOF 
FILC)I TSPACEI LFBSTSPACEYBYTELASHONY#{FELAS 


HOFEF>" 


250 PRINTTABCPM "{RIGHT FLASHONYSTELASHOF 
E RVSONIBERNDISPACEIWOLKERVSOFF. SPACE FL 


ASHONY»TELASHOFEY" 
260 PRINTTAB(P "RIGHT. FLASHONJRURARERRR 
RRAHLELASHOFFY" 


270 PRINT"{DOUNZ3 SPACEYDIESTSPACEITISTSP 
ATEYEINETSPACEFAUFLISTUNGTSPACEYDER{SPAG 


EIFUNKTIONS-" 


280 PRINT"TASTENTSPACEIMITTSPACE}IHRERTS 


PACE}YDERZEITIGEN{TSPACEIBELEGUNG ! " 


290 KEYSPRINT” CCRVSONI+EHRS ZA) ERVSOFF 5 


PACEIBEDEUTET TSPACEIBEFEHL+TSPACEIANFUEHN 
RUNGS-ZEICHEN) " 


300 PRINT" CLRVYSONF+CHRECSPACEY (13) XRVSODE 


FE SPACEYBEDEUTET {SPACEIBEFEHL TSPACEIWIRD 
{SPACE YSDFORT {SPACE I AUSGEFUEHRT" 
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<1&7> 
<S51> 

x187> 
x29> 

x207> 
<235> 
<190> 
s210> 
2475 


x96> 
<86> 
<39> 
<116> 
<59> 
<225> 
<231> 
<200> 
<234> 
<172> 
x234> 
<244> 


<140> 


<1264> 


<124> 


x183> 
<181> 


-%199> 


<a0> 


<9> 


310 GETKEYZ$ 

320 SENELR 

3350 REMHHHRRBHERSSHIHISBIHIIHIHIRIHIHIEIHIHIENE EN 

340 REM* 2. SEITE(KEY BESTIMMUNG) * 

350 REM HRREHEHERSHRIRHIHIHIHIHIHHIIHHHIHIHHEN NE 

360 RESTORE133O 

370 READG,W,E,R 

380 SOUND2,0,9:SOLWND2,W, 7: SOUNDZ,E,9: 50U 
ND2,R, 9:50UND2,R,9 

390 PRINT"BITTE{SPACEIGEBENTSPACEISIECSP 
ACEIDIETSPACE RVYSONYNUMMER{RVSOFF SPACE} 
DERTSPACEYTASTE{SPACEIAN WELCHE {SPACE}YSI 
EtSPACEYBELEGEN SPACE YMBECHTEN! {SPACE} (1 
-8) ” 

400 GETKEY KN: IFKNX 1LORKN>BTHEN4OO 

410 PRINT" {RIGHTY"KN 

420 PRINT"{SPACE RVSON DOHNYWELCHENERYSO 
EE SPACEIBEFEHL{SPACEISOLL{SPACEIDIETS. {SPA 
CEIFUNKT IONSTASTE{SPACE I BEKOMMEN?" 

430 INPUTKB$ 

44090 RESTORE1330 

450 READQ,W,E,R 

460 SOUND2,@,1:SOUNDZ,W,1:SUOUND2,E,1350U 
ND2,R,1:50UND2,R,1 

470 PRINT" {DOUN2 SPACE RVYSONIWIELRVSOEF 

SPACEISOLL{SPACEIDERTSPACEIBEFEHL{SPACE} 
ERSCHEINEN?" 

#480 PRINT"{RVSON DOWN2 RIGHTS SPACEIMOEG 
LICHKEITENs {RVSOFF}" 

490 PRINT"{DOHN RIGHTS SPACE} 1={SPACEIBE 
FEHLTSPACEYNURTSPACEISCHREIBEN" 

500 PRINT"{DOWHN RIGHTS SPACEI2=ISPACE)IBE 
FEHLTSPACEIUNDTSPACE FAUSFUEHRUNG" 


"510 PRINT”{DOHN RIGHTS SPACEYI=(SPACEIBE 


FEHLCSPACEIUNDTSPACE PACE YANFUEHRUNGSSTRICHE" 
520 PRINT"{DOWN RIGHTS SPACEIA=ISPACEIBE 
FEHLTSPACEILINDISPACEIDOPPELPUNKT" 

5350 PRINT"{DOHN RIGHTS SPACE>YS=TSPACE}IBE 
FEHLTSPACEYUND SPACE FRUNDKLAMMERTSPACEIA 
ur" 

540 GETKEYKA: IFKA>SORKA< I THENS4Ö 

550 PRINT" {RIGHTY"KA , 

550 IFKA=1THENKEYKN,KB$ 

570 IFKA=2THENKEYKN „KBS+CHR$ (13) 

580 IFKA=STHENKEYKN, KB$S+CHR$ (34) 

570 IFKA=4THENKEYKN,KB$+CHR$ (58) 
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600 IFKA=STHENKEYKN ,KBF+HCEHRS$ (40) 

810 BETKEYY$:SCNELR 

5820 REMHHRHRSHHRHBHRHEIHIHIIIIH HIHI 
&30 REM#* 3.SEITE(KEY WIRD ANGEZEIGT) * 
640 REMHRRAHHRRRHHHHETHHTI III 
650 READ T,Y,U,1,0 

660 SOUND2,T,3:SDUND2,Y,3:SOUNDZ2 ,U,23SO0U 
nD2,I,4:50UND2,1,15 

670 IFKAM1ORKA=2THENPRINT"IDOHNID RIGHTS 
IKEY’KN" ,"KB$ 

680 IFKA=3THENPRINT"{DOWHNIO RIGHTIIKEY"K 
N" „ "KBS+CHRS$ (34) 

690 IFKA=4THENPRINT"£DOHNIO RIGHTIIKEY"K 
N" „"KBS+CHRS (58) 

700 IFKA=5THENPRINT" {DOWHNIO RIGHTFYIKEY"K 
N" "KBS+CHRS (40) 

710 GETKEYY$ıSCNELR 

720 REMBHRHRHHHRRRHRESRRRNRIN NEN 

730 REM# LETZTE SEITEiABFRAGEN) * 

720 REMEHRRHEHEEHERRSERRTHINIENEUSEN EN 

750 READP,A,S,D 

760 SOUNDZ,P,15:S0OUND2,A, 15: SOUND2,S,7:5 
OLUImMD2,D,8 

7790 PRINT" {DOUHNSY" 

780 PRINT "MOECHTEN{SPACEYSIETSPACEYNOCHT 


SPACEYEINE{SPACEITASTETSPACEIBELEGEN?{SP 


ACE10) (J/ND" 

790 GETKEYPS$: PRINT" {RIGHTI"PS$r IFPSS="J 
*THEN320 

800 RESTORE1330 

810 READQA,W,E,R 

820 SOUNDI ,Q,2:SOUND1 ,W,2:SOUND1 ‚E,2:80U 
ND1 ,R,23S0UND1 ,R,2 

830 PRINT"{DOHN2 RIGHTSISOLLCSPACEISICHT 
SPACEIDASTSPACE PROGRAMM: " 

840 PRINT"{DOHN RIGHTS}1=CSPACEILOESCHEN 
850 PRINT" {DOHN RIGHTSYZ=tSPACEISPEICHER 
N 

860 PRINT"CDOMN RIGHTSI3=CSPACEIBEENDEN 

870 PRINT"{DOHN RIGHTSI4=LSPACEIAUFLISTE 
N 








880 PRINT"{DOUK RIGHTSYS=1SPALEINEUTSPAC 





EISTARTEN 

870 BETKEYPWs PRINT" {RIGHTI"PWi EFPW=1THEN 
NEW 

2900 IFPW=2THENSAVE"KEY-CALLER":REM #BEI 
DISKETTE „...THEN DSAVE"KEY-CALLER” #+ 

910 IFPW=STHENFAO 

920 IFPW=4THENLIST:END 

930 IFPW=STHENRUN 

9409 SCNELRSEND 

950 REMHEHRHEIRREEIFRER 

960 REM##= TITELBILD ##* 

970 REM 

980 PRINT=PRINT: PRINT: PRINT: PRINTTAB (4) " 
RICHT EEE ER" 

290 PRINTTAB(&) "{RIGHTI#TSPACE26I#" 

1000 PRINTTAB (5) "{RIGHTI#TSPACESIE {SPACE 
II ACE ZI T TSPACEZINTSPACESY SPACE 
43%" 

1010 PRINTTAB(&) "{RIGHTI#ISPACESYE {SPACE 
I{SPACEZH TSPACETYNISPACEY /TSPACESI%" 
1020 PRINTTAB (6) "{RIGHTI#TSPACEHYU /TSPAC 
ES) mi SPACESY I TSPACESI“" 

1030 PRINTTAB (6) "{RIGHTI#TSPACESIUNITSPAC 
EA3R ISPACEBY | TSPACEEY«" 

1040 FRINTTAB (6) "{RIGHTIHTSPACEFSIU {SPACE 
INISPACEZIE TSPACESY | (SPACEGY#" 

1059 0 PRINTTAB{&) "TRIGHTIRTSPACESYE TSPACE 
ZINTSPACEZHE mt SPACE#} | {SPACESYIH" 

1060 PRINTTAB (&) "{RIGHTI#TSPACE263%*" 
1070 PRINTTAB (6) "{RIGHTIY#{SPACE26I%#" 
1080 PRINTTAB (&) "{RIGHTYI#LSPACEZEY#ISPAC 




















56 


x15> 
<I> 
<115> 
x230> 
<135> 
<155> 


<a4> 
<219> 
<11> 
<32> 
<164> 
<136> 
<59> 
<0> 
<79> 
<193> 
<220> 
<204> 
<115> 
<123> 
<102> 
<116> 
<214> 


<167> 
<14> 


<80> 
<164> 


<76> 
<144> 
<94> 
<143> 
<81> 
<14> 
<B6> 
<139> 
<110> 
<4a2> 
<130> 
<222> 
<94> 
<3> 
<174> 
<254> 
<132> 
<59> 
<150> 


<185> 
<175> 


Gompute mib 


E£E}> Li} 

1090 PRINTTAB (A) "{RIGHTIRTSPACE2Y »—-TSPAC 
Er 7 TSPACEI N TSPACEZI I KSPACEZI 7 —tSPACE 
em ISPACEI«" 

1100 PRINTTAB(&) "{RIGCHTI#TSPACE2Y KSPACE 
ZI HA TSPACE} | TSPACE3Y I TSPACE3}Y H-{SPACEZIY 
MI TSPACEI«" 

1110 PRINTTAB (4) "{RIGHTISHTSPACE2Y \—-{SPAC 
EY I CSHIFTSPACE}Y | CSPACEY U TSPACEI L— {SPA 
LEI T—TSPACE3 {SPACE} N TSPACEI#TSPACEY" 
1120 FPRINTTAB (6) "{RICGHTYR{SPACE26Y#KSPAC 
E} ” 

1130 PRINTTAB (6) " {RIGHT REES 
EEE" 

1140 PRINTTAB{F)"CRIGHTZ DOHNZI CI TSPACE 
3BYISPACE RYSONYBERND{SPACEIWOLK{RVSOFF)} 
“" 
































1150 PRINTTAB(7I"{RIGHTIFUERTSPACEIDEN{S 
PACE RVSONYCDMMODORE{SPACEI1E/116TRVSOFF 
y“ 

1150 PRINTTAB{FP) "{RIGHT DOUHN2 RVSON SPAC 
EYSTARTISPAGEIMITTSPACE FELASHONY>SPACE< 
FLASHOFF}" 

1170 GETKEYG$1SENELR 

1180 REMERURNMUREREERE 

1170 REM#* EINLEITUNG # 

1200 REMEHHRIHHEIHHER EN E 

1210 PRINT" EEE 
WERE" 

1220 PRINT"{DOHN RIGHT RVSON SPACEYETSP 
ACEYITSPACEINISPACEILISPACEIETSPALEYTISP 
ACEYTISPAGEIYUTSPACEIN{SPACEIGTSPACE RVSD 
EF}" 

1250 PRINT" {DOHNSIDIES{SPACEYIISTLSPACEIE 
IN{SPACE PROGRAMM „DASTSPACE}YZUR{SPACEIFU 
NKTIONS-ISPACE?7}" 

1240 PRINT" TASTENPRÜOGRAMMIERUNGTSPACE}IDI 
ENT.ES{TSPACEIWIRDISPACE} IHNENGELEGENTLIC 
H{SPACEIZEITISPACEIZUM{SPACEI" 

12530 PRINT"LESEN{SPACEIDESTSPACEITEXTES! 
SPACEZYILASSEN „SOBALDTSPACEISIETSPACEI ZUT 
SPACEYENDE {SPACEIGELESENTSPACEZIHABEN „DR 
UVECKENTSPACE}”? 

1240 PRINT"SIE{SPACEIBITTEISPACEZ RVSON 
FLASHONYSPACETFLASHOFF RVSOFF SPACE} {SP 
ACEIGENAUTSPACEYIWIETSPACLEFZIJETZT I" 

1270 PRINT" {DOHNT TREUE NEIN 





























EEE" 


1280 PRINT"{DOUHN RIGHTS SPACEIBITTETSPAC 
EIJETZTISPACE RVSON FLASHONYSPACETFLASHO 
EFRVSOFF}Y" 

129709 GETKEYG$: GOTD110 

1300 REMAHHRENERETRENERENTREN 

1310 REM» DATAS FUER TOENE * 

1320 REM 

1530 DATA 596,643,685,770,770,770 

1340 DATA891,8644,854,9834,810 

1350 DATA 169,262,383,118 





"Das Listing ist an dieser Stelle 


<59> 


xöB> 


<75> 


x110> 


x99> 


<189> 


<70? 


<136> 


<5> 
<32> 
<181> 
<xı15> 


<201> 


x249> 


x252> 


<132> 


<171> 


<141> 


<B4A> 


x221> 


<94> 
x238> 
<100> 
<15> 
<120> 
327 
<33> 
<103> 


zu 


Ende. Geben: Sie nun.die Befehle 
zur Belegung der einzelnen Tasten 
‚ein und speichern Sie diese ab. Sie 


:werden feststellen, daß dieses Pro- 
.gramm eine wesentliche Hilfe bei 
.der Programmierung selbsterstell- 


ter Software darstellt. 
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Betätigen Sie sich als C-16-Computer-Komponist 





indexstellen belegt sind, werden Sie auf- 
gefordert SPACE zu. drücken, um in das 
Menü zu gelangen. Hier können Sie nun - 
mit der 2. Möglichkeit - Ihr Lied in ver- 


ab. Wenn das geschehen ist, können Sie 


Nachdem Sie das Programm „Soundma- das Lied jederzeit wieder mit 3. laden. 


chine“ geladen und gestartet haben, ge- 


langen Sie über zwei Titelbilder in das Me- 
nü, wo Sie folgende Auswahlmöglichkei- 
ten besitzen: Lied hören - Lied laden - 


Ihnen, dann speichern Sie das Lied mit 4. 


schiedenen Tonlängen anhören. Gefällt es 















Lied eingeben - Lied abspeichern. 

Wählen Sie nun „Lied eingeben“, werden 
Sie erst nach der Tonmenge (1 - 500) und 
der Tonlänge (1 - 100) befragt. Benötigen 
Sie mehr als 500 Töne, muß zuerst umdi- 
mensioniert werden, damit steht dann ei- 
ne Oktave zur Verfügung. Welche Taste, 
welche Note ergibt, ist auf dem Bildschirm 
ablesbar. Wählen Sie „+“, wird eineIndex- 
stelle mit der Note „O“ belegt, also eine 
Pause. Betätigen Sie „-“, wird die letzte In- 
dexstelle gelöscht und ist somit für eine 
Neubelegung wieder verfügbar. Wenn alle 


Tl 


Achtung: Falls SieeinLied EUREELEN LEITEN) undanschließend Fl oderF3 betätigen, istihre 





'Komposition unrettbar verloren! 


0 COLOR 1,2:C0OL0RO,1:COLOR4,2,3 

1 PRINT"{CLEAR DOHNT>" \ 

2 PRINT" TSPACESTH RENNER NIEREN 
Er" 

3 PRINT" SPACESIHTSPACE2EI"" 

4 PRINT" {SPACESY#CSPACEISTSPACEIOTSPACE?I 
VISPACEIN{SPACEID{SPACEIMISPACEIATSEPACE}I 
C{SPACEIHISPACEITISPACEINTSPACEYIETSPACE2 
3% 

5 PRINT" SPACESIHTSPACE2EIH 

& PRINT" CSPACESIRTSPACELZYIBYTSPACEIZI* 

7 PRINT" CSPACESIHRTSPACESYERIKISPACEISTEI 
NER{SPACESI* 

B PRINT"{SPACESIHTSPACE2EI* 

9 PRINT" LSPACES HERRIN 
5 2023 

10 FORT=1T02000: NEXT=:PRINTCHR£$ (14) 

11 PRINT"{CLEAR DOUNZ3 RIGHT4>-OMPOSE{SP 
GEYYOURTSPACEFOWNTSPACEH+SYMPHONIESTSPACE 
yı" 

12 PRINT" {DOHN3 RIGHT4Y| HATISPACEFYOUISP 
ALEITCANISPACEIDON”" 

153 PRINT"CDOHN RIGHT4Y1. SPACEICOMPOSE TS 
PACEYIYDURTSPACE>SYMFHONY" 

183 PRINT" RIGHT432. {SPACE>LISTENTSPACEIT 
DLSPACEIYDUR{SPACEISYMPHONY" 























» 

















15 PRINT" {RIGCHT433. {SPACGEFSAVE{SPACEYIYDU. 





RISPACEYISYMPHONY" 

15 PRINT" {RICHT#>34. ISPACEILOADTSPACE}I YOU 
R{SPACEISYMPHONIES" i 

17 PRINT"TDOHN4 RIGHT11}3 IAVNEISPACEIALSPA 
CE>GOOD{SPACEITIME," 
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<231> 
<78> 


<139> 
<182> 


<161> 
<240> 
<161> 


x26> 
<243> 


<202> 
x228> 
<1407> 
<108> 


x234> 


<125>- 


“ah> 


<28> 


<251> 


18 PRINT" {RIGHT13} IDUR" 

19 PRINT"{RIGHT18>7. {SPACE} YTEINER": FORT 
=1 T05000: NEXT PRINTCHR$ (142) 

20 REM - SOUND MACHINE (C) BY E.STEINER 


21 FORI=1T0Bı1KEYI,CHR$(132+1) :NEXT 

22 VOL&:DIMA (500) 

23 PRINT" {CLEAR3"SCHAR1,10,3,"SOUND{SPAC. 
EIMACHINE: " 

24 CHAR1,3, B,">CSPACEIFITSPACEIS (SPACE2 
32 {SPACEICOMPÜSETSPACEISDUND" 

25 CHAR1,3,10," >ISPACEIFZISPACEITSPACE2 
33 {SPACEILISTEN{SPACE2}SOUND" 

2& CHAR1,3,12,">ISPACEIFSTSPACEIT LSPACE2 
33 (SPACEILOADTSPACE4} SOUND" 

27 CHAR1,3,14," >ISPACEIFBLSPACEI {SPACE2 
+2 {SPACEISAVETSPACESISOUND" 

28 CHAR1,3,16,">ISPACEAI<SPACEZYT (SPACE 
JEND" 

297 BETF$ 

30 IFF$="(F1}"THENGOSUB62: GOTO23 

31 IFF$=" (F3) "THENGDSUBIF: BOTO2S 

32 IFF$="(F5}"THENGOSUB36: GOTO23 

33 IFF$=" (F8} "THENGOSLBSO: GOTO23 

34 IFF$=" {SPACE} " THENPRINT"{CLEARI"SGOTO 
111 

35 601029 

36 REM --—- LADEN ._— 
37 PRINT" {CLEARY":CHAR1,8,5," {RVYSONFSCUN 
DMACHINE SPACE}: CSPACEIHLOAD{RVSOFF}" 

38 FORT=1T05005AtT}=03NEXTICHAR1,8,12,"" 
: INPUT "SQUND{SPACEINAMETSPACE} "3 DAS 

















= 
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<183> 
<221> 
<79> 
<160> 
<153> 
<243> 
<146> 
<167> 
<79> 
<234> 
<48> 
<182> 
<244> 
<102> 
<16> 
<1> 
<59> 
<187> 
<217> 
<221> 


<1477 





Programme 


37 OPEN1,1,0,DA# 

40 INPUT#1,N 

‘#1 FORT=1TON 

42 INPUT#L,A{T) 

43 NEXT 

44 CLOSE 1 

45 CHAR1,8,12,"{SPACE21Y" 

46 CHAR1 ,B,12,DA$+" {SPACE} ISTISPACE?GELA 
DENISPACEI!" 

47 FORY=1T01000: NEXT 

48 CHAR1,8,12, "ISPACE21}Y" 
49 PRINT" CLEAR}" RETURN 
50 REM -—- SPEICHERN 

51 PRINT" {CLEAR} "3 CHAR1,8,5," {RVSONISOUN 
DMACHINE {SPACE} = TSPACEISAVELRVSOFF}” 

52 CHAR1,8,12,"": INPUT"SQUNDTSPACEINAME 
SPACE} " 3 DA$ 

53 OPEN1,1,1,DA$ 

54 PRINT#1,N 

55 FORT=1TON 

56 PRINT#1,A(TI 

57 NEXT 

58 CLOSE1 











59 PRINT" CLEAR?" SCHAR1,8,12,DA$+" SPACE 


+IST{SPACEIGESPEICHERT" 
60 FORY=1TO1000: NEXT 

&1 PRINT" {GLEAR}Y" RETURN 
&2 REM KOMPONTEREN 
63 PRINT" tCLEARY"SCHAR1,5,10, "HOWISPACEF 
MUCHTSPACEITONESTSPACE2Y 11-500) {SPACEY":z 
INPUTN 

&4 CHAR1,5,12, "LENGSTHISPACEIOFTSPACEITON 
ES{SPACE} (1-100) {SPACE} "s INPUTP 

65 FORT=1T0100: NEXT: PRINT" {CLEAR}Y" 





66 PRINT" TCLEARY"SCHAR1,10,0, "TRVSGN SPA 
CEIKISPACEFETSPACEFYTSPACEISTSPACEI: {SPA 











CE RVSOFF}" 
67 FORD=1T0100:NEXT 


&B CHAR1,1,0,"CTDOIHH2 LEFTICISTDOEHNZ LEF 


T3ID{DOHNZ2 LEFTYDISTDOWN2 LEFTZYETDOHNZ 











LEFTYF{DQUN2 LEFTYFISTDOHNZ LEFT3IGEDUUN 





2 LEFTIGISTBOUNZ2 LEFTZYATDOHN2 LEFTIAIST 
DOHN2 LEFT3YHTIDOHNZ LEFTIC" 

69 &9 CHAR1,6, 6,0, "QIDQUN2 LEFTYIZTDOHN2 LEFT} 
WIDOHNZ2 LEFT}3CDOUNZ LEFTYEDOUND2 LEFTYIR 
XDOUNZ2 LEFTIYSTDOHNZ LEFTYTIDOHNZ2 LEFT}I6T 




















DOHN2 LEFTYY{DOHNZ LEFTYTIDGHNZ2 LEFTIUTD 





OHN2 LEFTYT" 

70 CHAR1,15,10,"+{SPACE}I: {SPACE2I "NO{SPA 
CEITONE’" 

71 CHAR1,15,12,"-TSPACEI: TSPACEZIDELETET 
SPACEYLAST{SPACEITONE" 

72 CHAR1,15,18,"{RVSOHISOUNDMACHINETSPAC 
E33 (SPACEICOMPOSETRVSOFF}" 

73 z=1 

74 IFZ<1THENZ=1 

75 GETKEYI$ 

76 IFJ$="@"THENL=596: 601094 

77 1F3$="2" THENLU=620: 601094 

78 IFJ$="W"THENU=443: 607094 

79 IFJ$="3Z"THENU=645: 601094 

80 IFJ$="E" THENU=685: 607094 

81 IFI$="R"THENL=704: 601094 

82 IFJ$="5"THENL=722: 607094 

83 IFI$="T"THENU=739: 601094 

84 IFJ$="6"THENU=755: 601094 

85 IFJI$="Y"THENU=770:60T094 

86 IFI$="7"THENU=785: 601094 

87 IFJ$="U"THENU=798: 607094 

88 IFI$=" I" THENUS810:607094 

89 IFJ$="97" THENU=822:G0T094 

90 IF3$="0"THENU=834:G0T094 

91 IFJ$="+"THENU=-1: 607095 

92 IFJ$="-"THENZ=2Z-1:60T074 





<113> 
<202> 
<52> 
<119> 
<175> 
<46> 
<997> 


<235> 
<240> 
<102> 
<1977> 
<217> 


<204> 


<79> 
<1353> 
<236> 
rbb> 


<1553>. 


<187> 
<40> 


<2351> 
x253> 
<209> 
<249> 


SZ2AB> 


<77> 
<248> 


<192> 
<132> 


<216> 


<224> 
<231> 
<192> 


<195> 
<154> 
<43> 
<76> 
<46> 
<222> 
x252> 
<87> 
<220> 
<201> 
<26> 
<60> 
<109> 
<235> 
<153> 
<129> 
1257 
<68> 
<239> 
<45> 
<33> 
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93 601074 

74. SQUND1,U,P 

95 AlZI=U 

96 Z=2+1: IFZ=N+1THEN9FB 

77 601075 

98 CHAR1,28,23,"{ELASHON? >ISPACEISPACETS 
PACEY< {ELASHOFF?Y "1 GETKEYA$: IFAS< >" {SPACE 
3" THEN98: ELSERETURN 
99 REM ---  HDEREN 
100 PRINT" tCLEAR}" 
101 :CHAR1,8,5," {RVSON}SDUNDMACHINETSPAC 
E33 {SPACEFLISTEN{RYSOFFI" 

102 CHAR1,0,0," {RVSONFWITHLSPACES} " {SPAC 
E3IOLSPACE} * TSPACEZIVOLI{SPACEIGETISPACEIA 
GAIN{SPALEFITDISPACEHTHETSPACENMENUTRVSOE 
f} 2 

103 CHAR1,8,12,"LENGTHISPACEIOFTSPACEITO 
NESTSPACE> (41-100) {SPACE?" 

104 INPUTP 

105 IFP=OTHENRETURN 

106 FORT=1TON 

107 IFACTI=-LTHENGOSUB110:60T0109 

108 SOUNDI ,A{T) „P:SDUND2,A(CTI+5,P 

107 NEXT:G0T0100 

110 FORMN=1T020*P:NEXT: VOLS: RETURN 

111 CHAR1,0,8, "SIETSPACEIKDENNEN{SPACEID 
ASLSPACEFPRÜGRAMMISPACEIMITTSPACE} 'GOTOT 
SPACEIZS'" 











112 CHAR1,0,9, "RETTEN{SPACE} ! CHOHE>" 
113 END 


syrrimmaa 





Commodore 16/116 


ACE (Air Combat Emulator) 
Beach Head 

Bongo. Construction Set 
Commando 

Winter Olympics 

Bandits at Zero 


388888 
ZIEESERHINNNN 


BBOOEFBOUDBE 
888858 


Commodore 64 


tt V tt 

Law of the West 

Master of Magic 

Uridium 

Rebel Planet 

Rock’n Wrestle 

Five-a-side DUICER 

Psi 5 Trading Company 

Bero of the Golden Talisman 


DE DI 


. 


BERBBBEEWE 
BEHBEREHBB 
SEELE 


. 


<240> 
<46> 
<26> 
<139> 
<247> 


<248> 
xF> 
<130> 


x37> 


<16> 


<78> 
<141> 
<1> 
<117> 
<x27> 
«<55> 
x210> 
x234> 


<7> 
x232> 
<241> 


Legen Sie bei Bestellungen das Geld entweder in bar oder als 


Scheck bei. Bei Nachnanme-Versand wird ein Porto-Preis von 
4,00 IM angerechnet. 


Telefonische Bestellungen sind STIFTIURRE-VERSAND 


ab 18.30 Uhr möglich. 
Fordern Sie unsere kosten- 
losen Informationen an! 


INH. ANDREAS BACHLER 
BLÜCHERSTRASSE 24 
D-3290 BOCHOLT 
x G2ENINESOBS 
POSTFACH 429 
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a bla Sale u alu 2 nn un a al u, 5 


BONGO 


GALAXY 


CONSTRUCTION SET 


Begleiten Sie Bongo, die Supermaus, in sechs ver- 
schiedenen Bildern auf ihrer Suche nach den ge- 
raubten Diamanten der Prinzessin. Als einmalige 
Neuheit können Sie Ihre Bilder selber zusammen- 
bauen, spielen und abspeichern; dadurch bieten 
sich nahezu unbegrenzte Möglichkeiten. Für 1 


Schnelles und abwechslungsreiches Weltraum- 
spiel mit achtzehn verschiedenen Phasen und vie- 
len interessanten Gegnern. Gute Reaktionen und 
genaue Schüsse sind dabei erforderlich, denn Fehl- 
schüsse kosten Sie nur unnötig Energie. Für 1 oder 


2 Spieler; Steuerung wahlweise mit Joystick oder 
Tastatur. 


oder 2 Spieler; nur mit Joystick. 


GHOST TOWN 


Suchen Sie die verborgene Schatztruhe in einer 
unheimlichen Geisterstadt. Dabei wandern Sie 
durch neunzehn Bilder in wunderschöner hoch- 
auflösender Farbgrafik. Ein Grafik-Adventure für 
alle Tüftler und Knobler. Steuerung mit Joystick 








GRANDMASTER 


Das legendäre Schachprogramm in einer vollwer- 
tigen Version für den C-16 mit überragender Spiel- 

irke und viel Komfort (u.a. Zugzurücknahme, 
Zugvorschlag, Wahl der Bildschirmfarben, Scha- 
chuhren, Autoplay-Demomodus, usw.). Bedie- 





TOM 


Durchsuchen Sie mit Ihrem Abenteurer Tom die 
Pyramide von Manilo nach einem Schatz. Ein Arca- 
de-Adventure mit sage und schreibe 178 (einhun- 
dertachtundsiebzig!) Hires-Bildern, die ohne Nach- 
laden im Speicher sind. Steuerung mit Joystick 
oder Tastatur. 





oder Tastatur. 


Iwein 





WINTER OLYMPIADE 


Endlich ist es soweit: spielen Sie im Familien- oder 
Freundeskreis sechs verschiedene Disziplinen mit 
bestechender Grafik: Biathlon, Slalom, Eisschnell- 
lauf, Bobfahren, Skispringen und Abfahrt. Natür- 
lich komplett mit Eröffnungszeremonie, Wahl der 
Landesfarben, usw. Für 1 bis 4 Mitspieler; Joy- 
stick(s) erforderlich. 


nung mit Tastatur. 





Hrore Dates j.0 7 Fest =du4eg 





02417135198 


20.06.1938 


MICRO TEXT 


Leistungsfähi und einfach zu bedienendes ARTARPET Fra Fa 
ehe en mit vielen Profi- Du ER 
Funktionen, z.B. Flattersatz (linksbündig), Block- 
satz (rechtsbündig), Suchen, halbautomatischer 
usteine, usw. Der Ti i- 


Worttrennung, Textba 


cher umfaßt in der Grundversion ca. 6000 Zei 
(mehr als eine DIN A4-Seite). 


MICRO DATEI 


Ein universelles Dateiprogramm für beliebige Da- 
ten (z.B. Adressen, Schallplatten, Videos, usw.). Sie 
können Ihre Datensätze eingeben, ändern, sortie- 
ren, ausdrucken, al ichern, usw. Eine Speiche- 
rerweiterung ist empfehlenswert. 


Bicro Tank 1,0 77070 22 Bes 
dachen, den z1.44.0 


lasıae 


Liebe Inge! 


r_sirsen Brie 





PAINT BOX 


Ein Mal- und Zeichenprogramm der Spitzenklasse 
mit vielfältigen Möglichkeiten, z.B. Linien, Strah- 
len, Rahmen, Rechteck, Kreis, Scheibe, Laden und 
Abepaichem: Füllen von Flächen, acht verschiede- 
ne Pinsel, usw., alles natürlich in 121 Farben. Be- 
dienung mit Tastatur oder Joystick. 


Bisın 





GRAFIK DESIGNER 


Entwerfen Sie. mit diesem Super-Editor Ihren eige- 
nen Zeichensatz. Neben den üblichen Funktionen 
bietet dieses Programm so tolle Sachen wie: Dre- 
hen, Spiegeln, Invertieren, Multicolour-Modus, 
Scrollen, Füllen, usw. Selbst Animation von meh- 
reren Zeichen ist manch: Alle unsere Spiele wur- 


den hiermit geschrieben! 


Dun and en Pan 
KEY HEUT YU OP 4 


note cu" 


MICRO KALK 


Jetzt können Sie alle Kalkulationen durchführen, 
die tagtäglich anfallen, z.B. Führung einer Haus- 
haltskasse, Einkauf-/Verkauf-Erlös, usw. Schauen 
Sie sich an, warum Tabellenkalkulationen eine 
Hauptanwendung der “großen” Personal Compu- 
ter ist. Eine Speichererweiterung ist empfehlens- 
wert. 


1272896 22001 00201 213 2098 Sphziänk 





MUSIC MASTER 


Ein Musikprogramm mit tollen Möglichkeiten, die 
Ihren C-16 in einen fantastischen Synthesizer und 
Sequenzer verwandeln. Die mitgelieferte Demo 
zeigt, daß Ihr C-16 ein fast ebenso guter Musiker 
ist wie ein C-64. Sie können Ihre Musikstücke aber 





Machen Sie Ihrer Datassette Beine: mit TURBO TAPE können Sie Programme bis zu 


einfach in 


Me 





TURBO TAPE 


Sie Ihrer | t L 28K Länge genauso schnell speichern und laden wie mit einer Floppy! Ein Programm von 12K 
Länge wird jetzt in 48 Sekunden statt in 6:42 Minuten geladen, also mehr als Bmal so schnell. Das abgespeicherte Programm kann später von jedem C-16 wieder mit Turbo-Ge- 


schwindigkeit geladen werden; außerdem bleibt der Bildschirm während des Ladens eingeschaltet! 


Mit dieser Erweiterung können Sie Ihren C-16 oder 
C-116 auf 32K-RAM ausbauen, das heißt "28661 
BYTES FREE” für Basic-P: Hans, enlich haben 
Sie auch noch genug Speicherplatz zur Verfügung, 
wenn Sie im Porn Ssenden Grafik-Modus an: 
beiten. Einfach hinten einstecken — einschalten — 


jetzt 79.- 


Alle aufgeführten Artikel werden selbstverständlich mit ausführlicher 
deutscher Anleitung geliefert. Die Programme laufen auch auf den 
Computern C-116 und PLUS/4; die 64K-RAM ist aus Platzgründen aber 
nur im C-16 zu verwenden! Alle Preise verstehen sich als unverbindliche 
Preisempfehlung zzgl. 5,- DM Porto & Verpackung; der Versand er- 


folgt ausschließlich per Nachnahme. 


Durch den Einbau dieser Platine können Sie Ihren 
C-16 auf die maximale Speicherkapazität von 64K 
aufrüsten, d.h. “60671 BYTES FREE“ in Basic. Der 
Einbau erfolgt in wenigen Minuten einfach durch 
Austausch eines Bauteils. Es sind KEINE LÖTARBEI- 
TEN erforderlich! Um eine häufig gear Frage 
vorab zu beantworten: auch mit diesem 64K ist 
der C-16 nicht kompatibel zum C-64! 


eo SPITZEN -S 


jetzt 139... 


nicht nur ae und abspeichern, sondern auch 
Ihre eigenen Programme einbauen! 


197 




















OFTWARE 


i MADE IN GERMANY 


» KINGSOFT 


F. Schäfer - Schnackebusch 4 - 5106 


Roetgen - & 02408/5119 










DAS GROSSE C-16 BUCH 


Hier erfahren Sie alles, was Sie brauchen, um die Möglichkeiten 
Ihres C-16 voll auszunutzen. Sämtliche wichtigen Bereiche, wie z.B. 
Grafik, Sound, Maschinensprache werden ausführlich behandelt 
und sh vielen Beispielen el Dieses Buch ist für jeden 
Commodore-16 Besitzer unentbehrlich. = = 
Einzelpreis: 


PLUS-PAKET | 4 


Die ideale Spielesammlung für alle Einsteiger, 
bestehend aus 4 absoluten Top-Programmen I - 


GRANDMASTER, spielstarkes Schachprogramm mit viel Komfort —. 


TOM, faszinierendes Arcade-Adventure mit 178 (!) Bildern nn 


GALAXY, schnelles und abwechslungsreiches Weltraumspiel 
GHOST TOWN, spannendes Grafik-Adventure für die ganze Familie 


Einzelpreis: 


rc, Alle 3 Teile zusammen 
SKINGSOET > statt 97= nur 


SIOSR« etgen - Tel. 02408/5119 





Original Commodore- 
Joystick im eleganten 
und handlichen De- 
sign für viele Stunden 
Spielspaß; steigert die 
-/. Freude bei praktisch 
-/. allen Spielen enorm. 
Direkt anschlußfertig 
für Ihren C-16. 


Einzelpreis: 


a 
9) 


Sie sparen 28.- 








